برعکس کردن حرفهای کوچیک و بزرگ!

درود

Private Sub Command1_Click()
Dim i As Integer
Dim STR1, STR2
STR1 = Text1.Text
For i = 1 To Len(STR1)
    STR1 = Mid(Text1, i, 1)
        If Asc(STR1) < 64 Or Asc(STR1) > 91 Then 'if character between a to z
        STR1 = UCase(STR1)
        Else ' if character between A to Z
        STR1 = LCase(STR1)
        End If
    STR2 = STR2 & STR1
Next i
Text2 = STR2
End Sub

التماس دعا