spero di spiegarmi, ho modificato pure qualcosa
codice:
                 
                        Dim pnt(4)
                        'ho 4 numeri che metto in questa matrice
                        pnt(1) = 50
                        pnt(2) = 86
                        pnt(3) = 32
                        pnt(4) = 68
                        ' SCRIVE I 5 NUMERI CONTENUTI NELLA MATRICE
                         ' imposto un contatore
                        For pn = 1 To 4
                      ' imposto un ciclo che mi riporti  il 1° numero  50 a -18 finche non è > 0
                       minp1 = 50
                       Do
                       minp1 = minp1 - 18
                       Loop Until minp1 < 18
                       If minp1 < 0 Then
                       minp1 = minp1 + 18
                       End If
                       If minp1 = 0 Then
                       minp1 = 18
                        End If
                        ' finisco il  ciclo
                         'imposto un'altro ciclo  che mi ritrovi
                        Dim min(5)
                        For np = 1 To 5
                       ' con questi  ottengo 5numeri 4 dei quali sono uguali ai primi 4
                        min(1) = minp1
                        min(2) = minp1 + 18
                        min(3) = minp1 + 36
                        min(4) = minp1 + 54
                        min(5) = minp1 + 72
                         adesso qui confronto i 5 numeri ultimi con i primi 4 per far si che mi restituisca il numero diverso .. cioè mancante alla serie
                        If min(np) <> pnt(pn) Then
                        ambata = min(np)
il problema sopra spiegato e che non mi restituisce il numero diverso , ma restituisce il numero piu' grande della serire il questo caso 86, mentre dovrebbe restituire il 14

grazie e spero che mi aiutate......