Como faço para a data (exemplo) 25/12/2007 ser escrita assim: vinte e cindo de dezembro de dois mil e sete?

Alguem poderia me ajudar?

ABraços

Vanderlei

da uma olhada nessa function

 

Private Function ConverteDataExtenso(data As Date) As String
    Dim dias As Integer, mes As Integer, ano As Integer
    Dim aDia(1 To 31) As String, aMes(1 To 12) As String, aAno(0 To 3000) As String
   
    dias = Day(txtdataentrada.Text)
    mes = Month(txtdataentrada.Text)
    ano = Year(txtdataentrada.Text)
   
    aDia(1) = "Primeiro"
    aDia(2) = "Segundo"
    aDia(3) = "Terceiro"
    aDia(4) = "Quarto"
    aDia(5) = "Quinto"
    aDia(6) = "Sexto"
    aDia(7) = "Setimo"
    aDia(8) = "Oitavo"
    aDia(9) = "Nono"
    aDia(10) = "Decimo"
    aDia(11) = "Decimo Primeiro"
    aDia(12) = "Decimo Segundo"
    aDia(13) = "Decimo Terceiro"
    aDia(14) = "Decimo Quarto"
    aDia(15) = "Decimo Quinto"
    aDia(16) = "Decimo Sexto"
    aDia(17) = "Decimo Setimo"
    aDia(18) = "Decimo Oitavo"
    aDia(19) = "Decimo Nono"
    aDia(20) = "Vigésimo"
    aDia(21) = "Vigésimo Primeiro"
    aDia(22) = "Vigésimo Segundo"
    aDia(23) = "Vigésimo Terceiro"
    aDia(24) = "Vigésimo Quarto"
    aDia(25) = "Vigésimo Quinto"
    aDia(26) = "Vigésimo Sexto"
    aDia(27) = "Vigésimo Sétimo"
    aDia(28) = "Vigésimo Oitavo"
    aDia(29) = "Vigésimo Nono"
    aDia(30) = "Trigésimo"
    aDia(31) = "Trigésimo Primeiro"
  
    aMes(1) = "Janeiro"
    aMes(2) = "Fevereiro"
    aMes(3) = "Março"
    aMes(4) = "Abril"
    aMes(5) = "Maio"
    aMes(6) = "Junho"
    aMes(7) = "Julho"
    aMes(8) = "Agosto"
    aMes(9) = "Setembro"
    aMes(10) = "Outubro"
    aMes(11) = "Novembro"
    aMes(12) = "Dezembro"
   
    aAno(2000) = "dois mil"
    aAno(2001) = "dois mil e um"
    aAno(2002) = "dois mil e dois"
    aAno(2003) = "dois mil e tres"
    aAno(2004) = "dois mil e quatro"
    aAno(2005) = "dois mil e cinco"
    aAno(2006) = "dois mil e seis"
    aAno(2007) = "dois mil e sete"
   
    ConverteDataExtenso = aDia(dias) & " dia do mes de " & aMes(mes) & " do ano de " & aAno(ano)
End Function

Esta dando este erro: byref argument type mismatch

 

Printer.CurrentX = 20
vdata = Format(dt_vencimento_01.Value, "dd/mm/yyyy")
vData_Extenso = ConverteDataExtenso(vdata)
Printer.Print "Em "; vData_Extenso; " PAGAREI por esta única via de "
Printer.FontName = "Draft 6cpi"

Ode esta errado?

 

abraços

 

Vanderlei