Преобразовать в строке все строчные буквы в прописные - VBA

Формулировка задачи:

Помогите пожалуйста. В vba новичек. Что и как исправить? Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные.

Private Sub CommandButton1_Click()
Dim st, i
st = InputBox("Введите строку")
Back = st
For i = 1 To Len(st)
    If Mid(st, i, 1) Like "[A-Z]" Then Mid(st, i, 1) = UCase(Mid(st, i, 1))
Next
MsgBox "Преобразованная строка" + vbLf + st
End Sub

Решение задачи: «Преобразовать в строке все строчные буквы в прописные»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
Dim st, i
st = InputBox("Введите строку")
st=StrConv(st,vbUpperCase)
MsgBox "Преобразованная строка" + vbLf + st
End Sub
                        