IsLower ( String )
' グローバル変数Levelの値が半角アルファベットの
' "a"または"A"のどちらかをチェックする。
Dim buff
buff = GetGV ( "Level" )
If buff = "A" Then
If IsLower ( buff ) Then
MessageBox ( "Level :Small A." )
Else
MessageBox ( "Level :Large A." )
End If
End If
' ローカル変数buffに格納された文字列が
' 半角アルファベットの小文字かどうかをチェックする。
Dim buff
buff = "script"
If IsLower ( buff ) Then
MessageBox ( "すべての文字が半角アルファベットの小文字である。" )
Else
MessageBox ( "半角アルファベットの小文字以外の文字が含まれている" )
End If