Typer stemmer ikke overens: 'ChangeMonthNameToInteger'

Jeg får følgende fejlmeddelelse:

Typer stemmer ikke overens: 'ChangeMonthNameToInteger'
/indkøbsregnskab/index.asp, line 200

Linje 200 ser sådan her ud:

intMonth = ChangeMonthNameToInteger(MonthName)

Min sub ser sådan her ud:

Sub ChangeMonthNameToInteger(MonthName)
          Select Case MonthName
            Case "Januar"
                g_Month = 01
            Case "Februar"
                g_Month = 02
            Case "Marts"
                g_Month = 03
            Case "April"
                g_Month = 04
            Case "Maj"
                g_Month = 05
            Case "Juni"
                g_Month = 06
            Case "Juli"
                g_Month = 07
            Case "August"
                g_Month = 08
            Case "September"
                g_Month = 09
            Case "Oktober"
                g_Month = 10
            Case "November"
                g_Month = 11
            Case "December"
                g_Month = 12
            End Select
          ChangeMonthNameToInteger = g_Month
      End Sub

Hvad er der galt?