MaskEdBox1 !!! urgente

[pkj]

Quizá con solo usar "00/00/00" como máscara lo arregles.

Si no, prueba esto que se me ha ocurrido para un textbox:

Maxlength debe ser de 8

Código :

Private Sub Text1_LostFocus()
  If Len(Replace(Text1.Text, "/", "")) > 6 Then MsgBox "Valor no admitido"
  Text1.Text = ValidaFecha(Text1.Text)
End Sub
 
Function ValidaFecha(ByVal Fecha As String) As String
  Fecha = Replace(Text1.Text, "/", "")
  Fecha = Replace(Space(8 - Len(Fecha)) & Fecha, " ", "0")
  Fecha = Format(Fecha, "00/00/00")
  ValidaFecha = Fecha
End Function
 

Saludos