Visual Basic - TENGO UN PROBLEMA

HOLA ESPERO ME PUEDAN AYUDAR

EN UN TEXT1.TEXT TENGO MI NOMBRE "ESLAVA LARA ELIZABETH"
QUISIERA KE ME GENERARA EN OTRO TEXT UNA CONTRASEÑA KE TOME MI PRIMER APELLIDO Y LA PRIMERA LETRA DE MI NOMBRE
(ESLAVAE)
ESPERO ME AYUDEN

text2.text=mit(text1.text,1,8)

¿qué función es mit?

Yo tengo la solución pero es cuando esta escrito bajo esta estructura:
- primer nombre
- segundo nombre
- apellido paterno
- apellido materno

Si deseas te lo paso y tú lo ajustas a tus necesidades o simplemente me dices que estructura quieres seguir y lo cambio :o)

Lo adapte a lo que querías:

Private Sub Command1_Click()
Dim i As Integer
Dim cadena As String
Dim cad As String
Dim flag As Boolean

i = 1
flag = True
Do While flag
cad = Right(Left(Text1.Text, i), 1)
If cad = " " Then
flag = False
Else
cadena = cadena & cad
End If
i = i + 1
Loop
flag = True
i = 1
Do While flag
cad = Left(Right(Text1.Text, i), 1)
If cad = " " Then
flag = False
cadena = cadena & Left(Right(Text1.Text, i - 1), 1)
End If
i = i + 1
Loop
Text2.Text = cadena
End Sub

MUCHISIMAS GRACIAS A TODOS POR SU APORTACION
GRACIAS "Phoenixin"
TE LO AGRADESCO

Pues de nada, siempre es un placer ayudar a la gente