Visual Basic - Ayuda!!! plizzz

buen ps tengo este problema jeje quiero sacar las iniciales de un nombre que cuando precione un boton me aparescan las iniciales en un textbox tomadas de otro textbox pero con el nombre completo lo necesito para hacer un numero de control que tome las iniciales y genere algun otro numero automatico bueno ps es todo de antemano muchas grax

mira si te sriev esto:

cadena = "tu nombre completo"

i =0
' para empezar la primera incial si o si
inciales= mid(cadena,1,1)
do while i <= len(cadena)
if mid(cadena,i,1) =" " then
inciales = iniciales & mid(cadena,i+1,1)
else
endif
i = i+1

loop

msgbox inciales

'lo acomodas a tu antojo

Grax por responder jeje pero no me funciona ;_; me marca error en esta linea

If Mid(cadena, i, 1) = " " Then

Me podrian decir como arreglarlo? muchas gracias.

ya quedoooo!!!!!! jejeje muchas grax niwadeloko.

Asi quedo jeje

i = 1
For i = i To Len(Text1.Text)

If Mid(Text1.Text, i, 1) = " " Then
Text2.Text = Text2.Text & Mid(Text1.Text, i + 1, 1)
Else
End If

Next i

la variable i no se queria iniciar desde cero y ps desde 1 no me muestra la primer inicial del nombre completo jeje pero si le dejas un espacio al principio del nombre ya la muestra jeje. De nuevo muchas grax.