Traspaso de datos de TextBox a Label

[Iaio VISUAL BASIC]

TENGO txt_nombre = T001 - combina

por medio de un evento clik de un commanndbutton tengo que obtener lo siguiente:

lbl_nombre = combina


AYUDENMEE!!!!

[ReViJa]

Si lo deseas lo puedes hacer así:

Código:

Private Sub Command1_Click()
Dim Cadena() As String
Cadena = Split(Text1, "-")
Label1.Caption = Cadena(1)
End Sub

Private Sub Form_Load()
Text1.Text = "T001 - combina"
End Sub