Hjælp til VBA

Hej,

Jeg skal konvetere nogle datoer f.eks. 15/03/2004 til en "Enroll period" på formen "Spring 2004", og disse skal så skrives i en ny kolonne. Jeg har datoerne i kolonne D og det konverterede skal ende i kolonne M.

Jeg skal lave det med VBA og har følgende sub:

Sub Convert_Enroll()

Dim EnrollDate As String
EnrollDate = Range("D2")
Range("M2") = EnrollDate

Dim season As String
    Dim year As String
   
    year = Right(EnrollDate, 4)
   
    If Mid(EnrollDate, 4, 2) = "12" Or Mid(EnrollDate, 4, 2) = "01" Or Mid(EnrollDate, 4, 2) = "02" Then
        season = "Winter"
   
    Else
        If Mid(EnrollDate, 4, 2) = "03" Or Mid(EnrollDate, 4, 2) = "04" Or Mid(EnrollDate, 4, 2) = "05" Then
            season = "Spring"
       
        Else
            If Mid(EnrollDate, 4, 2) = "06" Or Mid(EnrollDate, 4, 2) = "07" Or Mid(EnrollDate, 4, 2) = "08" Then
                season = "Summer"
           
            Else
                season = "Fall"
               
            End If
        End If
    End If

End Sub

Men jeg får blot datoen og ikke det konverterede. Nogen som kan hjælpe?