OK, unlike the last thread, I have not found a built-in function which does the opposite (such as: return 2 when passed a string containing "February" or return 7 when passed "July"), so here is the code for that (Formatting is terrible here, but when you cut from here and paste into Visual Studio, it will format and indent it correctly...)

Private Function MonthToInt(ByVal month As String) As Integer
' Could use some tuning to ignore casing and to handle abbreviations

        Select Case month
            Case "January"
                Return 1
            Case "February"
                Return 2
            Case "March"
                Return 3
            Case "April"
                Return 4
            Case "May"
                Return 5
            Case "June"
                Return 6
            Case "July"
                Return 7
            Case "August"
                Return 8
            Case "September"
                Return 9
            Case "October"
                Return 10
            Case "November"
                Return 11
            Case "December"
                Return 12
        End Select
    End Function