Module Module1
Sub Main()
Dim ch As Char = "A"
If (Char.IsUpper(ch)) Then
Console.WriteLine("yes")
Else
Console.WriteLine("no")
End If
ch = "a"
If (Char.IsUpper(ch)) Then
Console.WriteLine("yes")
Else
Console.WriteLine("no")
End If
End Sub
End Module
' run:
'
' yes
' no