Boa tarde!!

Use a pesquisa do forum!!!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Segue codigo coloque no evento change conforme for digitando ele coloca as barras :

Private Sub DataSaida_Change()

On Error GoTo Trata_Erro

Prazo.Text = DateAdd("d", 25, Format(DataSaida.Text, "dd/mm/yyyy"))
Prazo = Format(Prazo.Text, "dd/mm/yyyy")

Exit Sub

Trata_Erro:

MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"

End Sub

Ops !!!! o codigo acima adiciona 25 dias a mais na data, codigo correto é este abaixo:

Private Sub PrazoRevestir_Change()

If Len(PrazoRevestir) = 2 Or Len(PrazoRevestir) = 5 Then
PrazoRevestir.Text = PrazoRevestir.Text & "/"
SendKeys "{End}", True
End If

End Sub