Определяет длину предпоследнего слова в vba( программный код)

Sub calcL(ByRef S)  index = 0  For k = Len(S) To 1 Step -1    If (Mid(S, k, 1) = " ") Or (Mid(S, k, 1) = ".") Or (Mid(S, k, 1) = ",") Then      index = k      Exit For    End If  Next k    L = 0  For k = index - 1 To 1 Step -1    If Mid(S, k, 1) = " " Then      index = k      Exit For    Else      L = L + 1    End If      Next k    MsgBox "Длина предпоследнего слова " + Str(L)     End Sub
Sub test()  Call calcL("В данном предложении несколько слов")  Call calcL("2-ое предложение более длиннее первого")End Sub