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