You should have a string variable, do simply like below

Dim s As String
s = "test"
s = s.Substring(0, 1)


and you will get the first letter of any string.

if you need in a char, do this
Dim c As Char
c = Convert.ToChar( s)...