[gr8styl]

Φίλε Τάσο,
Το πρόβλημα που περιέγραψα στο προηγούμενο post (αριθμοί 11, 9, 3 ζητώντας το 9) δεν δίνει λύση, ενώ είναι προφανής.
θα πρέπει όπως είπα:
να αλλάξουμε το τελευταίο "Exit FOr" σε "ccrMatch = ccrMatch - ArrItems(x)" τέταρτη γραμμή από το τέλος της CompineNumbers(...)
Με το Exit For αγνοείς τις υπολειπόμενες συγκρίσεις, και παρότι πολύ σωστά αφαιρείς την τελευταία καταχώρηση από την NowVal (NowVal.Remove NowVal.Count) δεν αφαιρείς από το ccrMatch την τιμή της.
Νομίζω ότι αυτό είναι λάθος στην περίπτωση όπου το ccrMatch δεν είναι μικρότερο από το (SetPt + 0.001 + ccrValOver).

Τι λες μήπως κάνω εγώ λάθος;

Τα λέμε.
Θανάσης.