Text1.Text = Asc("A") ' Byta ut A mot valfritt tecken. Tänk på att stora och små tecken ger olika koder.

' För att sedan omvandla tillbaka skriver du följande:

Text1.Text = Chr(65) ' Byta ut 65 mot valfri kod.