Function / Update Query - change Month text to Month Number (Aug -> 8) (1 Viewer)

Function MonthText2Number(sMonthName As String) As Integer
      ' in Access table, create field MO - Then use this in Update Query
      ' In an Access Create a Module with this function
      ' sMonthName = "Oct"   ' October will also work  October returns a 10
10    MonthText2Number = Month(DateValue("01-" & sMonthName & "-2000"))
20    Exit Function
ErrorTrap:
30        MonthText2Number = 0
End Function

[FONT=arial]'*******************************************[/FONT][FONT=times new roman][/FONT]
[FONT=arial]Public Function RtnMonthNum(pstrMonName As String) As Integer
'*******************************************
'Purpose:   Returns month number (1 - 12)
'           when provided a complete or partial
'           month name.
'Coded by:  raskew
'Input:     From debug (immediate) window:
'           1) ? RtnMonthNum("April")
'           2) ? RtnMonthNum("Sep")
'Output: 1) 4
'           2) 9
'*******************************************[/FONT][FONT=times new roman][/FONT]
[FONT=times new roman] [/FONT]
[FONT=arial]Dim strHold  As String
Dim strMonth As String
Dim intMonth As Integer[/FONT][FONT=times new roman][/FONT]
[FONT=times new roman] [/FONT]
[FONT=arial]   strMonth = "JanFebMarAprMayJunJulAugSepOctNovDec"
   strHold = Left(pstrMonName, 3)
   intMonth = InStr(strMonth, strHold)
   RtnMonthNum = intMonth \ 3 + 1[/FONT][FONT=times new roman][/FONT]
[FONT=times new roman] [/FONT]
[FONT=arial]End Function[/FONT]