چگونگی نوشتن اعداد با فاصله در text box

[س جوادی]

:تشویق:میخوام با دستورات شرطی مانند if اعداد رو دو رقم دو رقم با فاصله بنویسم مثل 44 21 45

[mbf5923]

فكر ميكنم اين نمونه بتونه به شما كمكم كنه

g = 1
a = 2
For i = 1 To (Len(Text1.Text))
If Len(Text1.Text) >= 1 Then

Text2.Text = Text2.Text & " " & Mid(Text1.Text, g, 2)
g = i + a
a = a + 1
End If
Next i