اضافه کردن به متن تکست باکس ( تغییراتی توی متن نوشته شده)

[Mr FTHEL]

دوستان فرض کنید توی تکست باکس داریم MRFTHEL حالا میخوام به این صورت بشه توی یک تکست باکس دیگه
Mr FT EH L یه همچین چیزی :d
ممنون

[returnx]

شما باید دو کارکتر دو کارکتر جدا کنید بعد بینشون یک Space بزارید اینجوری:

For i = 1 To Len(Text1.Text) Step 2
Text2.Text = Text2.Text & Mid(Text1.Text, i, 2) & Space(1)
Next i
موفق باشید.../