Конвертирование текста в нижний регистр.

Dim oldString As String
oldString = "ABCDEFG"
MsgBox (LCase(oldString))

Конвертирование текста в верхний регистр.

Dim oldString As String
oldString = "abcdefg"
MsgBox (UCase(oldString))