Public Function vl64separar(datos As String, arreglo As Integer) As String
Dim i As Long
Dim j As Long
Dim Encontro As String
Dim cadena() As String

j = -1
For i = 1 To Len(datos)

ReDim Preserve cadena(0 To Len(datos))


'Un digito
If Asc(Mid(datos, i, 1)) >= 72 And Asc(Mid(datos, i, 1)) <= 79 Then
Encontro = Mid(datos, i, 1)
j = j + 1
cadena(j) = Encontro
End If

'dos digitos
If Asc(Mid(datos, i, 1)) >= 80 And Asc(Mid(datos, i, 1)) <= 87 Then
Encontro = Mid(datos, i, 2)
j = j + 1
cadena(j) = Encontro
i = i + 1
End If

'tres digitos
If Asc(Mid(datos, i, 1)) >= 88 And Asc(Mid(datos, i, 1)) <= 95 Then
Encontro = Mid(datos, i, 3)
j = j + 1
cadena(j) = Encontro
i = i + 2
End If

'cuatro digitos
If Asc(Mid(datos, i, 1)) >= 96 And Asc(Mid(datos, i, 1)) <= 103 Then
Encontro = Mid(datos, i, 4)
j = j + 1
cadena(j) = Encontro
i = i + 3
End If

'cinco digitos
If Asc(Mid(datos, i, 1)) >= 104 And Asc(Mid(datos, i, 1)) <= 111 Then
Encontro = Mid(datos, i, 5)
j = j + 1
cadena(j) = Encontro
i = i + 4
End If

'seis digitos
If Asc(Mid(datos, i, 1)) >= 112 And Asc(Mid(datos, i, 1)) <= 119 Then
Encontro = Mid(datos, i, 6)
j = j + 1
cadena(j) = Encontro
i = i + 5
End If

Next

vl64separar = cadena(arreglo)
End Function

Vl64 seperar modulo

Visual Basic