подсчитать наибольшее количество идущих подряд пробелов на Visual Basic for Application (VBA) Помогите пожалуста.

Текст макроса для Ворда (проверяется весь текст) :

Sub BiggestSpace()
Selection.WholeStory
t = Selection.Text
l = Len(t)
For n = l To 1 Step -1
If Len(Replace(t, Space(n), "")) < l Then Exit For
Next
MsgBox "Biggest Space = " & n
End Sub

Текст макроса для Экселя (проверяется выделенная ячейка) :

Sub BiggestSpace()
t = ActiveCell.Value
l = Len(t)
For n = l To 1 Step -1
If Len(Replace(t, Space(n), "")) < l Then Exit For
Next
MsgBox "Biggest Space = " & n
End Sub