Boa noite Pessoal!!
Quero agradecer ao grande mestre "Bernardo" pela solução do problema, com o seguinte código abaixo:
Sheets("Clientes").Cells(Linha, 10) = DateSerial(Mid(UserForm1.cdCadUltCont.Text, 7, 2), Mid(UserForm1.cdCadUltCont.Text, 4, 2), Mid(UserForm1.cdCadUltCont.Text, 1, 2))
Agradeço tbém à todos VCs pelo interesse em me ajudar Ok!! Este Forum é Dezzzzzzzzzzzz!! 
Abraços e até ++++++++
Postado : 13/07/2015 4:42 pm