Como soletrar Meses por VBA (Meses para extenso)

'(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell

VBA
MsgBox (Format(Now(), "mmmm"))MsgBox ("Mes: " & Format(Now(), "mmmm"))MsgBox ("Mes: " & Format(#1/1/2005#, "mmmm"))

SQL
SELECT Table1.Data, "Mes de: " & Format([Data];"mmmm") AS strMes FROM Table1;