se lo dejo para q opinen:
Código:
Dim Comprobar As String, X As Long
Dim N As Byte, L As Byte, O As Byte, J As Byte
Private Sub Command1_Click()
For L = 32 To 128
Comprobar = Chr(L)
Text2.Text = Comprobar
Text2.Refresh
If Text1.Text = Comprobar Then
MsgBox "Listo " & Chr(L)
Exit Sub
End If
Next L
L = 0
For L = 32 To 128
For N = 32 To 128
Comprobar = Chr(L) & Chr(N)
Text2.Text = Comprobar
Text2.Refresh
If Text1.Text = Comprobar Then
MsgBox "Listo " & Chr(L) & Chr(N)
Exit Sub
End If
Next N
Next L
L = 0
N = 0
For L = 32 To 128
For N = 32 To 128
For O = 32 To 128
Comprobar = Chr(L) & Chr(N) & Chr(O)
Text2.Text = Comprobar
Text2.Refresh
If Text1.Text = Comprobar Then
MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O)
Exit Sub
End If
Next O
Next N
Next L
L = 0
N = 0
O = 0
For L = 32 To 128
For N = 32 To 128
For O = 32 To 128
For J = 32 To 128
Comprobar = Chr(L) & Chr(N) & Chr(O) & Chr(J)
Text2.Text = Comprobar
Text2.Refresh
If Text1.Text = Comprobar Then
MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O) & Chr(J)
Exit Sub
End If
Next J
Next O
Next N
Next L
MsgBox "no se encontro"
End Sub
SALUDOS