Visual Basic - Comparar largo de palabras en una cadena de texto

Sub splitfrase()

  Dim Cuenta As Integer

  Dim LenCadena As Integer

  Dim t() As String

  frase = InputBox("Escriba una frase por favor")

  t = Split(frase, " ")

  Valor = UBound(t)

For Cuenta = 0 To Valor

   t(Cuenta) = Replace(t(Cuenta), ",", "")

   t(Cuenta) = Replace(t(Cuenta), ".", "")

   If LTrim(RTrim(t(Cuenta))) <> "" Then

   LenCadena = Len(t(Cuenta))

   Text1.Text = Text1.Text & LenCadena & "  " & t(Cuenta) & vbCrLf

   End If

Next

End Sub

Max = 0

For x = 0 To valor

 If Len(t(x)) > Max Then

  Max = Len(t(x))

  C1 = t(x)

 End If

Next

  Min = Max

For x = 0 To valor

 If Len(t(x)) < Min Then

  Min = Len(t(x))

  C2 = t(x)

 End If

Next

 MsgBox "La cadena  mas larga es: " & """" & C1 & """" & " con " & Max & " caracteres" & vbCrLf & _

                 "La cadena mas corta es: " & """" & C2 & """" & " con " & Min & " caracteres"