disculpa.. pero estaba bien jodido con algo en el trabajo.. pero aqui esta la respuesta..
el ejemplo lo hice para un maximo de 10 separaciones de la cadena..
Código:
Dim A As String
Dim Numb As Integer
Dim b As Integer
Dim NumAsc As String
Dim Cadenas(10) As String
Dim Micadena As String
Dim UltimaCad As Integer
A = "A B C9" 'Se Asinga el Valor o La Candena Inicial
Numb = Len(A) ' contamos cuantos Caracteres tiene la Candena
For b = 1 To Numb ' Creamos el Ciclo
NumAsc = ootxet & Mid(A, b, 1) ' Declaramos buscamos letra a letra..
If b = 1 Then
UltimaCad = 1 'si es el primer cilo lo declaramos como la primera cadena
End If
If NumAsc = " " Then
Micadena = "" ' limpie la cadena si hay espacio
UltimaCad = UltimaCad + 1 ' ' Agregue una nueva cadena
Else
Micadena = Micadena & NumAsc 'Crea cadena cuano no hay espacio
Cadenas(UltimaCad) = Micadena ' Asigna cadena al Array
End If
Next b
MsgBox Cadenas(3) 'Mostrar cadena No. en este caso la 3 y seria C9
nos vemos espero te sirva..