UCase to LCase & LCase to UCase Converter
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
Original Author: amaru
Code
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.