UCase Function
рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ рднрдПрдХрд╛ рд╕рд╛рдирд╛ рдЕрдХреНрд╖рд░рд▓рд╛рдИ рдареБрд▓рд╛ рдЕрдХреНрд╖рд░рдорд╛ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрджрдЫ ред
рд╣реЗрд░реНрди рдкрдирд┐ рдорд┐рд▓реНрдЫ: LCase рдкреНрд░рдХрд╛рд░реНрдп
UCase (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд╛рда)
рд╕реНрдЯреНрд░рд┐рдЩ
рдкрд╛: рддрдкрд╛рдИрдБрд▓реЗ рд░реВрдкрд╛рдиреНрддрд░рдг рдЧрд░реНрди рдЪрд╛рд╣рдиреБ рднрдПрдХреЛ рдХреБрдиреИ рдкрдирд┐ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ ред
Sub ExampleLUCase
Dim sVar As String
sVar = "Las Vegas"
рдореБрджреНрд░рдг LCase(sVar) REM рд▓реЗ "las vegas" рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рдореБрджреНрд░рдг UCase(sVar) REMрд▓реЗ "LAS VEGAS"рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
End Sub