''' <summary>Suche nach dem größten restfreien Teiler aus einer vorgegebenen 
' Liste</summary>
''' <param name="zahl">Positive Zahl, deren größter Teiler gesucht wird</param>
''' <param name="TeilerListe">Liste der zu beurteilenden Teiler (> 0)</param>
''' <returns>größter Teiler (oder -1)</returns>
Private Function FindeTeiler(ByVal zahl As Integer, _
                             ByVal TeilerListe() As Integer) As Integer
 
   'Eingabe prüfen
   If zahl < 1 Then Return -1
   If TeilerListe Is Nothing OrElse TeilerListe.Length = 0 Then Return Nothing
 
   'ansteigend sortieren
   Array.Sort(TeilerListe)
 
   'Suche, beginnend beim größten Teiler
   For i As Integer = TeilerListe.Length - 1 To 0 Step -1
       If TeilerListe(i) < 1 Then Return -1 'DivisionByZero abfangen
       If zahl Mod TeilerListe(i) = 0 Then Return TeilerListe(i)
   Next i
 
   'kein Teiler in der Liste
   Return -1
End Function

Dim Teiler as integer = FindeTeiler(Zahl, {2, 4, 5, 8})