Option Explicit
 
Private Sub Command1_Click()
Text1.Text = Change(Text1.Text)
End Sub
 
Private Function Change(sText As String) As String
Change = sText
Dim i
Dim n
For i = 1 To (Len(sText) / 2)
n = Mid(sText, i, 1)
Mid(Change, i, 1) = Mid(Change, Len(sText) - (i - 1), 1)
Mid(Change, Len(sText) - (i - 1), 1) = n
Next i
End Function