A1 text into date format - excel - vba

[alrodopial]

It drives me crazy
cell A1: Chest 10th May - 13:45

how do i extract - VBA - the "10th May" as excels' date serial number?

I try to use the:
myTARGET = DateSerial(2013, 05, 23)

but i get type missmatched error when trying to convert the "May" into its number (5)

rINFO = "Chest 10th May - 13:45"
rDATE = Split(rINFO, " ")(1)
rDATE = Replace(rDATE, "th", "") * 1
rMONTH = Split(rINFO, " ")(2)

and I get error here:
monthNUMBER= Month(DateValue("01 " & rMONTH & " 1900"))

[alrodopial]

it can be solved with the below:

Public Function Month2Num(mName)
mName = UCase(mName)
Select Case mName
Case UCase("Jan")
Month2Num = 1
Case UCase("Feb")
Month2Num = 2
Case UCase("Mar")
Month2Num = 3
Case UCase("Apr")
Month2Num = 4
Case UCase("May")
Month2Num = 5
Case UCase("Jun")
Month2Num = 6
Case UCase("Jul")
Month2Num = 7
Case UCase("Aug")
Month2Num = 8
Case UCase("Sep")
Month2Num = 9
Case UCase("Oct")
Month2Num = 10
Case UCase("Nov")
Month2Num = 11
Case UCase("Dec")
Month2Num = 12
End Select
End Function

and then

MyTARGET= Month2Num(rMONTH)