Como que faço para pegar somente o mês de um determinada data 18/08/2004  estou querendo saber o mês.

 

Private Sub Command1_Click()
Dim Mes As Integer
Mes = Month("18/08/2004")
     MsgBox Mes
    
End Sub

tente assim

 

text = format(Now,"mmmmmm")

 

 

2Pac