Сортировка слов в предложении по количеству букв - VB

Dim a() As String
st = "313 654654 wew r df dfgdfg 666 444 4"
Print st
a = Split(st)
For i = 0 To UBound(a) - 1
   For j = i + 1 To UBound(a)
      If Len(a(i)) > Len(a(j)) Then
         t = a(i): a(i) = a(j): a(j) = t
      End If
Next j
Next i
Print Join(a)