probelma con textbox

[CeLaYa]

bueno despues de una larga ausencia me puse a revisar tu código y ya encontre el problema, el problema es que cuando abres el archivo se trae un "enter", lo que hay que hacer es quitarle ese entrer al final de la cadena de texto:

Código [Seleccionar] Expandir



Private Sub OKButton_Click()
    On Local Error GoTo fin
    Label1.Visible = False
    Text1.Visible = False
    okButton.Visible = False
    CancelButton.Visible = False
    Label2.Visible = True
   
    MaxText = Len(Form1.Texto.Text)
    MaxPass = Len(Text1.Text)
    y = 1
   
    Decrypted = ""
    If Right(Form1.Texto.Text, 2) = vbCrLf Then
        Form1.Texto.Text = Left(Form1.Texto.Text, Len(Form1.Texto.Text) - 2)
        MaxPass = MaxPass - 2
        MaxText = MaxText - 2
    End If
   
    For x = 1 To MaxText
          Decrypted = Decrypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) - (Asc(Mid(Text1.Text, y, 1)) / 2))
       y = y + 1
       If y >= MaxPass Then y = 1
       
    Next x
    Form1.Texto.Text = Decrypted
    Unload Me
fin:
   If Err Then MsgBox Err.Description
    On Local Error GoTo 0

    Unload Me
End Sub



también falta desactivar el control de errores al final de cada procedimiento

Código [Seleccionar] Expandir


fin:

--->   If Err Then MsgBox Err.Description
    On Local Error GoTo 0 <---

    Unload Me
End Sub



este código es el que va en el Form3

[sorcerer]

huuu gracias!!!