думаю следующее:
bool equals = (String.Compare(input, input.ToUpper(), StringComparison.Ordinal) == 0)
Будет также работать, и вы можете убедиться, что сравнение выполняется без учета строкового регистра (я думаю, VB.NET по умолчанию игнорирует регистр). О даже использовать String.CompareOrdinal(input, input.ToUpper())
.