If follonero

[majo83]

Hola necesito calcular la estacion del año a partir de una fecha y he hecho esto:

Dim mes As Integer
Dim dia As Integer
Dim fecha As Date

mes = fecha.Month
dia = fecha.Day





'If (mes = 12 And dia >= 21 Or mes = 1 Or mes = 2 Or mes = 3 And dia < 21) Then
'TextBox2.Text = "es invierno "

'Else
'If (mes = 3 And dia > 21 Or mes = 4 Or mes = 5 Or mes = 6 And dia < 21) Then
'TextBox2.Text = "primavera"

' Else
'If (mes = 6 And dia > 21 Or mes = 7 Or mes = 8 Or mes = 9 And dia < 23) Then
'TextBox2.Text = "verano"
'Else
'If (mes = 9 And dia > 23 Or mes = 10 Or mes = 11 Or mes = 12 And dia < 21) Then
'MsgBox("otoño")
'End If

'End If


'End If

'End If

El problema es que siempre me saca que es invierno.Haber si me pueden ayudar que lo tengo que entregar mañana y estoy atascado.Un saludo