Code:
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txtbox.text = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
dim pos as string = txtbox.text
Dim pol As Char
pol = pos.chars(0)
MessageBox.Show(pol, "top", MessageBoxButtons.OK)
End Sub