Something

Dim outer as integer
Dim inner as integer

If radlast.checked then
 for outer = 0 to strlast.getupperbound(0)-1
  for inner = 0 to strlast.getupperbound(0)-1
   if strlastname(inner) > strlast(inner +1) then
    strtemp = strlast(inner)
    strlast(inner) = strlast(inner +1)
    strlast(inner + 1) = strtemp
    ...
   endif
  next inner
 next outer
endif