Este código lo uso para simular una mascara de entrada para fechas a medida que voy ingresando los números me agrega la barra (/) la propiedad MaxLength debería ser = 10, se puede mejorar validando los datos para días, meses y años.
Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1) = 2 Then Text1 = Text1 & "/" Text1.SelStart = Len(Text1) ElseIf Len(Text1) = 5 Then Text1 = Text1 & "/" Text1.SelStart = Len(Text1) End If End Sub