Quantidade de Dias de um Determinado mes em VBA

[mrfg2000]

Boa tarde Amigos deste Respeitado Forum.

Peço as vocês uma ajuda.

Preciso descobir qual a quantidade de dias de um determinado mes, porém não estou conseguindo obeter esse número, pois estou tentando da seguinte forma.

sub Dias
   mes = 2
   DiasNoMes = DateSerial(Year(CInt(2012)), CInt(Month(mes)) + 1, 1) - DateSerial(Year(CInt(2012)), CInt(Month(mes)), 1)
   msgbox Diasnomes
end sub

esta me retornando que "Fevereiro de 2012" tem 31 dias ... Esta errado ...

Poderiam por favor me ajudarem nessa questão ...

Antecipo cordialmente agradecimentos aos amigos da casa.

[benzadeus]

Sub Exemplo()

Dim dt As Date

Dim lDias As Long

'DateSerial(Ano, Mês, Dia)

dt = DateSerial(2012, 2, 15)

lDias = Day(DateSerial(Year(dt), Month(dt) + 1, 0))

MsgBox "O mês da data " & dt & " tem " & lDias & " dias.", vbInformation

End Sub

[mrfg2000]

Bom dia amigo ...

Muito obrigado pela sua ajuda ...

Deu certinho aqui.. atendendo minha necessidade...