Module Module1
Sub Main()
Dim s As String = "programming code"
If Len(s) > 0 Then
Dim code As Integer = Asc(s)
If code >= 97 And code <= 122 Then
Console.WriteLine("First character must be uppercase")
End If
End If
End Sub
End Module
' run:
'
' First character must be uppercase