[x3 aka a-droo]

поставил ваш вариант
ситуация стала лучше, но не полностью исправилась)
иногда терял минусы , иногда нет))
вот скрин
http://forum.oszone.net/attachment.p...0&d=1323638011

но потом методом тыка решил убрать модуль вот в этой строке

Код:

B(k_min) = B(i)

в результате вот рабочий кусок

Код:

For i = 1 To m * n - 1                   
 Min = B(i)
 k_min = i
  For j = i + 1 To m * n
   If Abs(B(j)) > Abs(Min) Then
    Min = B(j)
    k_min = j
   End If
  Next
 B(k_min) = B(i)
 B(i) = Min
Next

Огромное спасибо!)