mmmhhhh...solo con algo así, a menos por supuesto que manejes otro tipo de estructuras como unos arreglos, pero por el momento esto cumple con tu requicisión:
Código:
If mes = 1 OR mes = 3 OR mes = 5 OR mes = 7 OR mes = 8 OR mes = 10 OR mes = 12 Then
'es de 31
elseif mes = 2 Then
'es febrero
Elseif mes = 4 OR mes = 6 OR mes = 9 OR mes = 11 Then
'es de 30
End If
Salu2,