Преобразовать в строке все строчные буквы в прописные - 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

Оцени полезность:

9 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы