probelma con textbox página 2

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:


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:

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