MsgBox Len(txtwrite.Text)

txtwrite.text = LCase(txtwrite.text)

txtwrite.text = UCase(txtwrite.text)

Private Function IsSame(sText as String) as Boolean
If StrReverse(sText) = sText Then
IsSame = True
Else
IsSame = False
End If
End Function

Dim i 
dim n
dim stext As tring
sText="Text1"
For i=1 To Len(sText)
n=Mid(sText,i,1)
Mid(sText,i,1)=Mid(sText,i-1,1)
Mid(sText,i,1)=n
Next 
 
MsgBox sText