Como Transformar Mêses em Extenso a partir de uma data

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

Como Transformar Mêses em Extenso a partir de uma data, usa a Função Format(), exemplos em baixo para VB, VBA e SQL

VBA

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

SQL

SELECT Table1.Data, "This is month: " & Format([Data];"mmmm") AS strConvertion
FROM Table1;