Преобразовать все буквы в прописные [ВЕРХНИЙ РЕГИСТР] — Visual Basic(Бейсик)

iText = "ТексТ" ' "текст"

iUpText = UCase(iText) ' Вариант I.

iUpText = StrConv(iText, vbUpperCase)  ' Or
iUpText = StrConv(iText, 1) ' Вариант II.

iUpText = Format(iText, ">") ' Вариант III.