by amaru (4 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(5 Votes)
THIS VERY COOL FUNCTION TAKES A NORMAL STRING AND CONVERT EVERY CHARACTER IN IT FROM UCase TO LCase OR FROM LCase TO UCase... CHECK IT OUT!! AND VOTE IF YOU FIND IT USEFUL
VBcoders
Public Function Convert(orgStr As String) As String
For Counter = 1 To Len(orgStr)
X = Mid(orgStr, Counter, 1)
If X = LCase(X) Then
X = UCase(X)
Else
X = LCase(X)
End If
Convert = Convert & X
Next
End Function