separar por espacio

he probado asi, pero no tira...

Function obten_instruccion(cadena)
Dim contador As Integer
Dim instruccion As String
contador = 0
While contador < Len(cadena)
If cadena(contador) <> " " Then
contador = contador + 1
End If
Wend
instruccion = Mid(cadena, 0, contador)
Text2.Text = instruccion

"Jordi Maycas" escribió en el mensaje
news:%

Hola, tengo una cadena y me gustaria saber como conseguir la primera
palabra, es decir:

cadena="mov ax,bx"

palabra="mov"

Gracias

PD: Y ya puestos como podria separar tambien ax y bx