IsUpper ( String )
Dim buff buff = GetGV ( "Level" ) If buff = "A" Then If IsUpper ( buff ) Then MessageBox ( "Large A Level." ) Else MessageBox ( "Small A Level." ) End If End If