[Ahmed_Mansoor]

أهلا أخي الكريم :

كود :

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