Формирование даты (месяца) VBA

Private Sub CommandButton1_Click()
    Dim x As String
    Dim Lenx As Integer
    f1 = Month(Date)
    x = MonthName(f1, False)
    Lenx = Len(x)
    If (x.chars(Lenx) = "ü") Or (x.chars(Lenx) = "é") Then x.chars(Lenx) = "ÿ"
    Else: x.chars(Lenx + 1) = "à"
    ActiveCell.FormulaR1C1 = x
End Sub

Private Sub Test()
    MsgBox convEngToDate("1 Feb 2007")
    MsgBox convEngToDate2("15 Dec 14")
    MsgBox convEngToDate3("9 May 1941")
End Sub
 
Private Function convEngToDate(t$) As Date
    Dim m$, i%
    m = "JanFebMarAprMayJunJulAugSepOctNovDec"
 
    For i = 1 To 36 Step 3
        t = Replace(t, Mid(m, i, 3), 1 + i \ 3)
        If IsDate(t) Then convEngToDate = CDate(t): Exit For
    Next
End Function
 
Private Function convEngToDate2(t$) As Date
    Dim m$, i%
    m = "JanFebMarAprMayJunJulAugSepOctNovDec"
 
    For i = 1 To 36 Step 3
        t = Replace(t, Mid(m, i, 3), 1 + i \ 3)
    Next
    convEngToDate2 = CDate(t)
End Function
 
Private Function convEngToDate3(t$) As Date
    Dim tmp$, i%: Const m = "JanFebMarAprMayJunJulAugSepOctNovDec"
 
    For i = 0 To 11
        tmp = Mid(m, 1 + i * 3, 3)
        If InStr(t, tmp) Then
           convEngToDate3 = CDate(Replace(t, tmp, i + 1))
           Exit Function
        End If
    Next
End Function

Function AyNum(Ay As String) As Integer
 AyNum = (InStr(1, "JanFebMarAprMayJunJulAugSepOctNovDec", Ay) + 2) \ 3
End Function

Function AyNum(Ay As String) As Integer
 AyNum = (InStr(1, "JanFebMarAprMayJunJulAugSepOctNovDec", Ay) + 2) \ 3
End Function

Function locDate(engDate$) As Date
    locDate = Evaluate("DateValue(""" & engDate & """)")
End Function
 
Private Sub Test()
    MsgBox locDate("6 Jul 17")
End Sub

i = InStr("JanFebMarAprMayJunJulAugSepOctNovDec", ms)
if i > 0 then MonthNum = (i + 2) / 3

ActiveCell.FormulaR1C1 = mid(Format(Date, "dd MMMM"), 4)