Este es parte del code:
Código
El problema esque no reconoce mas de una letra repetida(solo muestra una letra, si escribes agua, solo saldra 'traducido' agu )
Option Explicit 'variables Dim a1 As Integer ' variable que almacena el resultado de InStr, devuelve 0(si no hay letra) y 1 (si q hay letra) Dim c01 As String, c02 As String, c03 As String ' variables q sirven para contar Private Sub Command1_Click() c01 = "" 'cada vez q se le da al boton limpiamos resultados anteriores a1 = InStr(Text1.Text, "a") 'A If a1 = 0 Then 'no esta Else c03 = "01000001" c01 = c01 + c02 + c03 'Letra + espacio + nueva letra End If a1 = InStr(Text1.Text, "b") 'B If a1 = 0 Then 'no esta Else c03 = "01000010" c01 = c01 + c02 + c03 End If .... Text2.Text = c01 'alfinal lo muestra todo en un text Private Sub Form_Load() c02 = " " End Sub
Me imagino que sera un usando un for o algo de eso no?
Weno espero haber q me decis, un saludo