>>257
これでわかるかい？

Dim s As String = "abcABC"

For Each c As Char In s
　　Dim a As Integer = Convert.ToInt32(c)
　　Console.WriteLine("{0}: {1}", c, a)
Next