codice:
Dim ch As Char = "A"c
ch = Convert.ToChar(Convert.ToInt16(ch) + 1)
HTH