字符串截取就可以了
Private Sub Command1_Click() Text2.Text = Mid(Text1, 1, 6)End Sub当然,你也可以用LEFT做 Private Sub Command2_Click() Text2.Text = Left(Text1.Text, 6)End Sub