Найти самое длинное слово в предложении - VB

option explicit
 
sub main()
  dim sentence$, slovo, maxslovo$
  sentence = inputbox("Введите предложение",,"Горные вершины спят во тьме ночной.")
  for each slovo in split(ClearPunctuation(lcase(sentence)))
    if len(maxslovo) < len (slovo) then maxslovo = slovo
  next
  msgbox "Самое длинное слово в предложении: " & maxslovo
end sub
 
Function ClearPunctuation(byval St as String)
  dim i&, L$
  For i = 1 To Len(St)
    L = Mid$(St, i, 1)
    If L Like "[!A-Za-zА-яҐЁЄЇіґёєї'‘’-]" Then Mid$(St, i, 1) = " "
  Next
  St = Replace$(St, " - ", " ")
  St = Trim(St)
  Do
    i = Len(St)
    St = Replace$(St, "  ", " ")
  Loop Until i = Len(St)
  ClearPunctuation = St
End function