Private Sub Command1_Click()
Dim i As Integer, tStr As String
' שומר את הטקסט במשתנה
tStr = Text1.Text

'מוחק את הטקסט הקיים
Text1.Text = ""

'לולאה שבונה מחדש את הטקסט עם התיו הרצוי
For i = 1 To Len(tStr)
    Text1.Text = Text1.Text & Mid(tStr, i, 1) & "~"
Next

'מוחק את התיו האחרון
Text1.Text = Mid(Text1.Text, 1, i + 1)
End Sub

for i = 1 to (len(tstr) - 1)
   text1.text = text1.text & mid(tstr, i, 1)
   if(mid(tstr, (i + 1), i) <> " ") then
      text1.text = text1.text & "~"
   end if
next i
text1.text = text1.text & mid(tstr, i, 1)