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

sub ppp()
sss = "1 2 3 4 5 6 7 8"
maxp = 0
nomprob = 0
for ii = 1 to len(sss)
if mid(sss,iii,1)=" " then
nomprob = nomprob+1
else
if nomprob > maxp then
maxp = nomprob
nomprob = 0
endif
endif
next ii
msgbox("макс. число пробелов = "+maxp)
end sub