Intanto non includi gli estremi (ma questa puo' essere una scelta). Cioe', se mem = min oppure mem = max, sara' uno scarto.

Per il resto, il problema deve essere nei valori. Prova a scrivere

codice:
IF mem > min and mem < MAX then
   lstbuoni.additem(mem)
else 
   lstscarti.additem(mem)
   MsgBox min & " " & mem & " " & max
End If
e mostra il risultato della msgbox