[RESOLVED] Invalid Property Value

[castellano]

I'm trying to finish this program that use a text file to store data, but the problem here is a error 380 invalid property value. I think the problem is about the maskedit control. I use this control to let the user enter the date, and before send to the textfile a invisible textbox is used to format the input in the maskedit control.

The error is pointing to this part of the code:
Me.Maskfechadeefectividad.Text =Me.txtFechadeEfectividad.Text

 Sub LeerRecord(QuePosicion As Integer)
 Dim empleado As EmpleadoTipo
    
    If QuePosicion > 0 Then
        Open App.Path + "\DatosEmpleados.txt" For Random As #2 Len = Len(empleado)
        Get #2, QuePosicion, empleado
        Close #2
     
     nuevomaximo
     mascarapone     
      Me.txtSeguroSocial.Text = empleado.SeguroSocial
  Me.txtTransaccion.Text = empleado.Transaccion
  Me.txtLlaveGenerica.Text = empleado.LlaveGenerica
  Me.txtOperador.Text = empleado.Operador
 Me.txtTerminal.Text = empleado.Terminal
 Me.txtFechadeEntrada.Text = empleado.FechadeEntrada
 Me.txtHoradeEntrada.Text = empleado.HoradeEntrada
 Me.cmbanotrimestral.Text = empleado.numerodetrimestre
 Me.txtCodigo.Text = empleado.Codigo
 Me.txtFechadeEfectividad.Text = empleado.FechadeEfectividad

 Me.Maskfechadeefectividad.Text =Me.txtFechadeEfectividad.Text
 Me.Maskfechadeentrada.Text = Me.txtFechadeEntrada.Text
Me.Maskhoradeentrada.Text = Me.txtHoradeEntrada.Text
 End If
 End Sub

Function mascarapone()
Me.Maskfechadeefectividad.Format = "yy/mm/dd"
Me.Maskfechadeefectividad.Mask = "##/##/##"
Me.Maskfechadeentrada.Format = "yy/mm/dd"
Me.Maskfechadeentrada.Mask = "##/##/##"
Me.Maskhoradeentrada.Format = "hh:mm:ss"
Me.Maskhoradeentrada.Mask = "##:##:##"
End Function

I will appreciate any help or suggestion and can give more info if is needed.