Сортировка файлов выбором на VBS

sub alphaLocalVersionsSort(sheet)
  dim i: i = 0
  dim j: j = 0
  dim length: length = sheet.RowsCount-1
  dim t0
  dim t1
  dim str0
  dim str1
  dim del: del = ThisApplication.Attributes("ATTR_FILE_DELIMITER").value
  
  for i=0 to length-1
    for j=i+1 to length
      while sheet.CellValue(i, 2) = "" or sheet.CellValue(j, 2) = ""'Аналог break
        j = j+1
        if j>length then exit for
      wend
      
      str0 = left(sheet.CellValue(i, 1), InStr(sheet.CellValue(i, 1), del))
      str1 = left(sheet.CellValue(j, 1), InStr(sheet.CellValue(j, 1), del))

      while str0 <> str1'Аналог break
        j = j+1
        if j>length then exit for
      wend
    
      if sheet.CellValue(i, 2) = "" then
        t0 = 0
      else
        t0 = cint(sheet.CellValue(i, 2))
      end if
        
      if sheet.CellValue(j, 2) = "" then
        t1 = 0
      else
        t1 = cint(sheet.CellValue(j, 2))
      end if
      
      if t0 > t1 then
        sheet.MoveRow j,i
      end if
      
    next
  next
end sub