Problema risolto.
Facendo una ricerca sul forum ho trovato la risposta che ha dato un utente indicando google come motore di ricerca fornendo un esempio.
Posto il codice non scritto da me che ho adattato al mio scopo.
Private Sub ListRemoveDups(ByVal Source As List(Of String), Optional ByVal MatchCase As Boolean = False)
'Sort the array
Source.Sort()
'Do the duplicates remove.
For x As Integer = Source.Count - 1 To 1 Step -1
'Check if we want
If MatchCase Then
'Do the check
If Source(x).ToLower() = Source(x - 1).ToLower() Then
Source.RemoveAt(x)
indx += 1
End If
Else
'Do the check
If Source(x) = Source(x - 1) Then
Source.RemoveAt(x)
End If
End If
Next x
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim names As New List(Of String)
'Add some names
names.Add("65")
names.Add("68")
names.Add("68")
names.Add("70")
names.Add("72")
names.Add("72")
names.Add("73")
names.Add("73")
'Match Case
ListRemoveDups(names, True)
'Display names
MsgBox(indx)
For x As Integer = 0 To names.Count - 1
MessageBox.Show(names(x), "Demo", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Return Ben,Chris,david
Next x
End Sub
in questo modo rimane solo i numeri che non sono doppi.
Quello che cercavo,ringrazio.