Roger,
One way:-

Sub Test()
Dim intA As Integer, strB As String
Dim strC As String, Var
Var = ActiveCell.Value ' (or whatever)
intA = Left(Var, 2)
strB = Mid(Var, 3, 1)
strC = Right(Var, 1)
End Sub

This only works if the format of the target is always the same.

regards'
Don
--

"Roger" wrote in message
om...
Hi All,

I have an issue with how to split cell content without using a
specific character/sign.

Eg
The content of a cell is 13GR.

The searched result after the splitting of the cell content shall be:
intA= 13
strB = G
strC = R

How should the code be written to solve the issue?

I would be very grateful for help.
Roger