Hvordan får jeg sorteret efter måneden i datoen

Jeg har en kode der sorterer datoen således:

Før sortering.
13.12
10.08
20.07
06.10

Efter sortering.
06.10
10.08
13.12
20.07

Altså sorteret efter dagen og ikke efter måneden. Hvordan får jeg den til at sortere efter måneden ?

Her er koden der gør som beskrevet ovenfor:
        'Create object for the recordset
        Set rs = Server.CreateObject("ADODB.RecordSet")

        'Create DSN connection
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("log/vl10.mdb")

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Vaertskaber Where Aar =" & "'" & iAar & "'"
        'Response.Write(strSQL)
           
        'Open DB
        rs.Open strSQL, strDSN, 1
       
        'Make a loop finding the number of dates
        i = 0
        redim iDate(0)
        do while not rs.eof 'Looping rows
            iString = rs("Date")
            Response.Write iString & "<br>"         
            If iString <> "" Then
                i = i + 1
            redim preserve iDate(i)
            iDate(i-1)=iString
            End If
            rs.MoveNext
        Loop

        ShellSort iDate

        Max = ubound(iDate)
        'Response.Write Max & "<br>"
     
        For i = 0 to Max
            Response.Write iDate(i) & "<br>"
        Next
       
        rs.close()
        Set rs = Nothing