VBScript. Функция UCase

Преобразует символы строки к верхнему регистру.

 UCase(string)

Пример:

 Dim CityName
 CityName = UCase("Mensk") ' CityName = "MENSK"