Cita:
Iniciado por palmerasistemas Este codigo te ayudará, saludos.
llamame histoclin.
Me.TextBox1.Text = "G12"
'seleciconamos G
Me.TextBox1.Select(0, 1)
Dim var1 As String
var1 = Me.TextBox1.SelectedText
MsgBox(var1)
'seleciconamos 12
Me.TextBox1.Select(1, 2)
Dim var2 As Integer
var2 = Me.TextBox1.SelectedText
MsgBox(var2)
Gracias; lo he echo como me has dicho y sale perfecto