Module Example
Public Sub Main()
Dim n As Integer = 0
For ctr As Integer = &h20 To &h017F
Dim string1 As String = ChrW(ctr).ToString()
Dim upperString As String = string1.ToUpper()
Console.WriteLine(upperString)
Next
End Sub
End Module