ifrancoz respondió:
Esto lo puede hacer con la función Asc Ejemplo : Dim I As Integer Dim Lon As Integer Dim Codigo As Byte Dim Cadena As String Dim Codigos As String Private Sub Form_Load() Codigos = "" Cadena = "Esto es una prueba" Lon = Len(Cadena) For I = 1 To Lon...