Hi I have the below bit of code but the If DateStr Like "*March*" Then MonthNumber = "/03/" Else MonthNumber = ""lines are not working, any ideas?

I'm getting the output:
12 March
12


I am hoping for:
12 March
12
/03/

Option Explicit
Sub FixDateString()

Dim DateStr As String
Dim OnlyDigits As String
Dim FLeftNumber As String
Dim SLeftNumber As String
Dim FRightNumber As String
Dim SRightNumber As String
Dim MonthNumber As String

DateStr = "12th March"


DateStr = Replace(DateStr, "1st", "1")
DateStr = Replace(DateStr, "2nd", "2")
DateStr = Replace(DateStr, "3rd", "3")
DateStr = Replace(DateStr, "4th", "4")
DateStr = Replace(DateStr, "5th", "5")
DateStr = Replace(DateStr, "6th", "6")
DateStr = Replace(DateStr, "7th", "7")
DateStr = Replace(DateStr, "8th", "8")
DateStr = Replace(DateStr, "9th", "9")
DateStr = Replace(DateStr, "10th", "10")
DateStr = Replace(DateStr, "11th", "11")
DateStr = Replace(DateStr, "12th", "12")
DateStr = Replace(DateStr, "13th", "13")
If IsNumeric(Left(DateStr, 1)) = True Then FLeftNumber = Left(DateStr, 1) Else FLeftNumber = ""
If IsNumeric(Mid(DateStr, 2, 2)) = True Then SLeftNumber = Mid(DateStr, 2, 2) Else SLeftNumber = ""
If IsNumeric(Mid(DateStr, (Len(DateStr) - (Len(DateStr)) + (Len(DateStr) - 1)), 1)) = True Then SRightNumber = Mid(DateStr, (Len(DateStr) - (Len(DateStr)) + (Len(DateStr) - 1)), 1) Else SRightNumber = ""
If IsNumeric(Right(DateStr, 1)) = True Then FRightNumber = Right(DateStr, 1) Else FRightNumber = ""

If DateStr Like "*March*" Then MonthNumber = "/03/" Else MonthNumber = ""
If DateStr Like "*April*" Then MonthNumber = "/04/" Else MonthNumber = ""
If DateStr Like "*May*" Then MonthNumber = "/05/" Else MonthNumber = ""
If DateStr Like "*June*" Then MonthNumber = "/06/" Else MonthNumber = ""
If DateStr Like "*July*" Then MonthNumber = "/07/" Else MonthNumber = ""


OnlyDigits = FLeftNumber & SLeftNumber & SRightNumber & FRightNumber

Debug.Print DateStr
Debug.Print OnlyDigits
Debug.Print MonthNumber
End Sub