Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim d As String
j = j - 1
datos = Text2.Text
For i = 1 To Len(datos)
j = j + 1
' un digito neutral

If InStr(Mid(datos, i, 1), "H") Then
d = Mid(datos, i, 1)
Text1.Text = Text1.Text & d & vbNewLine

End If

'un dijito positivo
If InStr(Mid(datos, i, 1), "I") Then
d = Mid(datos, i, 1)
Text1.Text = Text1.Text & d & vbNewLine
End If

If InStr(Mid(datos, i, 1), "J") Then
d = Mid(datos, i, 1)
Text1.Text = Text1.Text & d & vbNewLine
End If

If InStr(Mid(datos, i, 1), "K") Then
d = Mid(datos, i, 1)
Text1.Text = Text1.Text & d & vbNewLine
End If



'un dijito negativo
If InStr(Mid(datos, i, 1), "M") Then
d = Mid(datos, i, 1)
Text1.Text = Text1.Text & d & vbNewLine
End If

If InStr(Mid(datos, i, 1), "N") Then
d = Mid(datos, i, 1)
Text1.Text = Text1.Text & d & vbNewLine
End If

If InStr(Mid(datos, i, 1), "O") Then
d = Mid(datos, i, 1)
Text1.Text = Text1.Text & d & vbNewLine
End If



'dos dijito positivo
If InStr(Mid(datos, i, 1), "P") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If

If InStr(Mid(datos, i, 1), "Q") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If

If InStr(Mid(datos, i, 1), "R") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If

If InStr(Mid(datos, i, 1), "S") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If


'dos dijito negativo
If InStr(Mid(datos, i, 1), "T") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If

If InStr(Mid(datos, i, 1), "U") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If

If InStr(Mid(datos, i, 1), "V") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If

If InStr(Mid(datos, i, 1), "W") Then
d = Mid(datos, i, 2)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 1
End If


'tres digitos positivo
If InStr(Mid(datos, i, 1), "X") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If

If InStr(Mid(datos, i, 1), "Y") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If

If InStr(Mid(datos, i, 1), "Z") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If

If InStr(Mid(datos, i, 1), "[") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If


'tres digitos negativo
If InStr(Mid(datos, i, 1), "\") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If

If InStr(Mid(datos, i, 1), "]") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If

If InStr(Mid(datos, i, 1), "^") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If

If InStr(Mid(datos, i, 1), "_") Then
d = Mid(datos, i, 3)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 2
End If


'cuatro digitos positivo
If InStr(Mid(datos, i, 1), "`") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If

If InStr(Mid(datos, i, 1), "a") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If

If InStr(Mid(datos, i, 1), "b") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If

If InStr(Mid(datos, i, 1), "c") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If

'cuatro digitos negativos
If InStr(Mid(datos, i, 1), "d") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If

If InStr(Mid(datos, i, 1), "e") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If

If InStr(Mid(datos, i, 1), "f") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If

If InStr(Mid(datos, i, 1), "g") Then
d = Mid(datos, i, 4)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 3
End If


'cinco digitos positivo
If InStr(Mid(datos, i, 1), "h") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If

If InStr(Mid(datos, i, 1), "i") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If

If InStr(Mid(datos, i, 1), "j") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If

If InStr(Mid(datos, i, 1), "k") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If


'cinco digitos negativo
If InStr(Mid(datos, i, 1), "l") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If

If InStr(Mid(datos, i, 1), "m") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If

If InStr(Mid(datos, i, 1), "n") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If

If InStr(Mid(datos, i, 1), "o") Then
d = Mid(datos, i, 5)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 4
End If


'seis digitos positivo
If InStr(Mid(datos, i, 1), "p") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If

If InStr(Mid(datos, i, 1), "q") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If

If InStr(Mid(datos, i, 1), "r") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If

If InStr(Mid(datos, i, 1), "s") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If

'seis digitos negativo
If InStr(Mid(datos, i, 1), "t") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If

If InStr(Mid(datos, i, 1), "u") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If

If InStr(Mid(datos, i, 1), "v") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If

If InStr(Mid(datos, i, 1), "w") Then
d = Mid(datos, i, 6)
Text1.Text = Text1.Text & d & vbNewLine
i = i + 5
End If



Next
MsgBox j
End Sub

Seperar valores de VL64

Visual Basic