Traspaso de datos de TextBox a Label

[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