Определить слова наибольшей и наименьшей длины (VBA в Microsoft Office Excel)

Sub asd()
    Dim a(2)
    a(0) = InputBox("Surname", , "Familia")
    a(1) = InputBox("Name", , "Imia")
    a(2) = InputBox("Middlename", , "Otchestvo")
    
    n% = UBound(a, 1)
      For i% = 0 To n% - 1
          For j% = i% + 1 To n%
               If Len(a(j%)) < Len(a(i%)) Then
                  Tmp = a(i%)
                  a(i%) = a(j%)
                  a(j%) = Tmp
               End If
            Next j%
      Next i%
      MsgBox (a(0) & vbNewLine & a(2))
End Sub