Function ConvertTextDateToDate(Text$)
Dim v
    v = Split(Text, " ")
 If UBound(v) <> 2 Then ConvertTextDateToDate = Null: Exit Function
 Select Case v(1)
 Case "янв": v(1) = 1
 Case "фев": v(1) = 2
 Case "мар": v(1) = 3
 Case "апр": v(1) = 4
 Case "май": v(1) = 5
 Case "июн": v(1) = 6
 Case "июл": v(1) = 7
 Case "авг": v(1) = 8
 Case "сен": v(1) = 9
 Case "окт": v(1) = 10
 Case "ноя": v(1) = 11
 Case "дек": v(1) = 12
 Case Else
    ConvertTextDateToDate = Null: Exit Function
 End Select
    ConvertTextDateToDate = DateSerial(v(2), v(1), v(0))
End Function

?ConvertTextDateToDate("11 апр 2019")
11.04.19