سورس کد تبدیل حروف بزرگ به کوچک با ویژوال بیسیک 6

توسط این سورس کد می توانید حروف را از بزرگ به کوچک تبدیل کنید.

Private Sub ConvertToUpper()
Dim xinput As String
Dim output As String
Dim i As Integer

xinput = "Hello World"
output = ""

For i = 1 To Len(xinput)
If Asc(Mid(xinput, i, 1)) >= 65 And Asc(Mid(xinput, i, 1)) <= 90 Then
output = output & Chr(Asc(Mid(xinput, i, 1)) + 32)
Else
output = output & Mid(xinput, i, 1)
End If
Next i

MsgBox output
End Sub