Declare Function CharUpper Lib "user32" Alias "CharUpperA" (ByVal lpsz As String) As String
CharUpper конвертирует все символы из нижнего регистра в верхний.
Функция возвращает строку со всеми буквами нижнего регистра, конвертируемые в верхний регистр.
' Конвертируем символы строки
' в верхний регистр
Print CharUpper("Русский_Проект")