puedes hacer un split como dice Elemental Code o tambien tienes la opcion de modificar el code haciendo un step 2 (haciendo esto para que te alcancen los numeros)
01 = a
02 = b
03 = c
04 = d
mira te dejo un ejemplo :
01 = a
02 = b
03 = c
04 = d
mira te dejo un ejemplo :
Código (vb) [Seleccionar]
'Code by Rembolso
' usando step y optimizando codigo
Const Minus As String = "abcdefghijklmnñopqrstuvwxyz"
Private Function EncriStep(Datos As String)
Dim i, Buff As String
For i = 1 To Len(Datos)
If InStr(1, Minus, Mid(Datos, i, 1)) <= 9 Then
Buff = Buff & "0" & InStr(1, Minus, Mid(Datos, i, 1))
Else
Buff = Buff & InStr(1, Minus, Mid(Datos, i, 1))
End If
Next i
EncriStep = Buff
End Function
Private Function DescipStep(Datos As String)
Dim i, Buff As String
For i = 1 To Len(Datos) Step 2
If InStr(1, Mid(Datos, i, 2), "0") = 1 Then
Buff = Buff & Mid(Minus, Replace(Mid(Datos, i, 2), 0, ""), 1)
Else
Buff = Buff & Mid(Minus, Mid(Datos, i, 2), 1)
End If
Next i
DescipStep = Buff
End Function
'ejemplo con msgbox
msgbox EncriStep("abcdefgho")
MsgBox DescipStep(EncriStep("abcdefgho"))