fala meu amigo
tenta usar uma mascara de formatação
Private Sub MP1_PG1_DtDevolBX_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MP1_PG1_DtDevolBX.MaxLength = 10 '10/10/2014
Select Case KeyAscii
Case 8 'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}" 'Emula o TAB
Case 48 To 57
If MP1_PG1_DtDevolBX.SelStart = 2 Then MP1_PG1_DtDevolBX.SelText = "/"
If MP1_PG1_DtDevolBX.SelStart = 5 Then MP1_PG1_DtDevolBX.SelText = "/"
Case Else: KeyAscii = 0 'Ignora os outros caracteres
End Select
End Sub