В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова" - VB

Sub Test2()
Dim sStr As String, sWord As String, iMin As Integer, iLen As Integer, oObj
sStr = InputBox("Ввод строки:")
 
iMin = Len(sStr)
For Each oObj In Split(sStr)
    iLen = Len(Trim(oObj))
    If iLen <> 0 Then
        If iLen < iMin Then iMin = iLen: sWord = oObj
    End If
Next
MsgBox "Самое короткое слово '" & sWord & "' состоит из " & iMin & " букв."
End Sub