[vbnet]

(28-05-14, 10:00 PM)AHMED213 كتب : ...
اريد ان اكتب في التكست بوكس ارقام و بين كل رقمين فاصلين مثل
12 01 86 73 07
FAIRE 2 ESPACE ENTRE DEUX CHIFRES
...

.....

كود :

Private Sub Command1_Click()
    Text2.Text = MySplit(Text1.Text)
End Sub

Function MySplit(n As String) As String
    Dim i As Integer
    For i = 1 To Len(n) Step 2
        MySplit = MySplit & Mid(n, i, 2) & " "
    Next i
    MySplit = Trim(MySplit)
End Function