ocupo ayuda con un programa de viasul basic, debe de sacar toda la palabra en ascii y solo muestra una con el ciclo for
Dim chertext As Char
Dim i As Integer = 1
For i = 1 To Len(cadena.Text)
ascii.Text = Mid(cadena.Text, i, 1)
ascii.Text = ascii.Text & " " & Asc(chertext)
ascii.Text = Asc(ascii.Text)
i += 1
Next