Visual Basic - cortar parte de un textbox

si tengo un texto en un textbox y quiero cortar parte de el como lo puedo hacer por codigo ej.
juan10 quiero que solo quede 10 en otro textbox
de antemo muchass gracias

sanson:
¿Otra vez la misma pregunta escrita de otra manera?

Dim ipos As Long, s As String
s = text1.Text
ipos = InStr(1, s, " ", vbTextCompare)
If (ipos < 0) Or (ipos + 1 > Len(s)) Then Exit Sub
text2.Text = Trim$(Mid$(s, ipos + 1))

Leé el uso de las funciones left, right, mid, instr, instrrev.
Saludos Ruri

Puedes utilizar este pequeño código.

Private Sub Command1_Click()
Text2.Text = Mid(Text1.Text, 5)
Text1.Text = Mid(Text1.Text, 1, 4)
End Sub

Espero te sirva. Saludos Pola