Private Sub Command1_Click() Dim zText As String Dim zLength As Integer zText = Text1.Text zLength = 3 Text1.Text = Left$(zText, zLength) Text2.Text = Mid$(zText, zLength + 1) End Sub