Задан список из десяти городов. Поменять в списке местами названия самого длинного и самого короткого - VB

Sub City_List(City() as string)
Dim lmax as integer  ' самое длинное слово
Dim lmin  as integer  ' самое короткое слово
Dim i      as integer  
Dim imax as integer  ' позиция самого длинного
Dim imin  as integer  ' позиция самого короткого
Dim Tmp as string    ' рабочая переменная
 
     lmax=Len(City(Lbound(City,1)))  ' первоначльно считаем самым длинным 
     lmin=Len(City(Lbound(City,1)))   ' и самым коротким -  первое слово 
     For i=1 to Ubound(City,1)          ' цикл по всем словам
          If len(City(i)) > lmax then     ' если очередное слово длиннее текущего максимума
             lmax=len(City(i))              ' запомним его 
             imax=i                            ' и его позицию
          end if
          If len(City(i)) < lmin then      ' то же - для короткого 
             lmin=len(City(i))
             imin=i
          end if
     Next i                                    ' конец цикла
 
     Tmp=City(imax)                      ' меняем самое длинное
     City(imax)=City(imin)               ' с самым коротким
     City(imin)=Tmp
 
End Sub