Написать программу, которая находит самое короткое слово в предложении

Private Sub Command1_Click()
Dim txt As String
Dim s As String
Dim i As Integer
Dim j As Integer
Dim min As Integer
 
txt = "На улице светит солнце и растет трава"
j = 1
min = Len(txt)
 
Do
    i = InStr(j, txt, " ")
    If i = 0 Then Exit Do
    If i - j < min Then
        min = i - j
        s = Mid$(txt, j, min)
    End If
    j = i + 1
Loop
 
MsgBox s
 
End Sub
 
Private Sub Command2_Click()
Dim txt As String
Dim arr() As String
Dim s As String
Dim i As Integer
Dim min As Integer
 
txt = "На улице светит солнце и растет трава"
min = Len(txt)
arr = Split(txt, " ")
 
For i = LBound(arr) To UBound(arr)
    If Len(arr(i)) < min Then
        min = Len(arr(i))
        s = arr(i)
    End If
Next i
 
MsgBox s
 
End Sub

Option Explicit
Private Sub Form_Load()
    Dim v, s$
    s = "Написать программу, которая находит самое короткое слово в предложении"
    For Each v In Split(s)
        If Len(v) < Len(s) Then s = v
    Next
    MsgBox "Самое короткое слово: " & s
End Sub

Option Explicit
Private Sub Form_Load()
    Dim v, s$, i&
    s = "Написать программу которая находит самое короткое слово в предложении"
    For i = 1 To Len(s)
      For Each v In Split(s)
        If Len(v) = i Then GoTo m
      Next
    Next
m:  MsgBox "Самое короткое слово: " & v
End Sub