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