La funzione qui presentata usa una struttura For/Next dove al suo interno vi è annidata una struttura If per confrontare ogni elemento di un array con una chiave di ricerca.
Se la chiave di ricerca viene trovata la funzione torna il valore dell'indice dell'elemento che indica la posizione della chiave di ricerca all'interno dell'array; in caso contrario torna -1.

Function LinearSearch(ByVal key As Integer, _
  ByVal mioArray As Integer()) As Integer

  Dim i As Integer

  'iterazione nell'array
  For i = 0 to GetUpperBound(0)
    
    If mioArray(i) = key then
      Return i
    End If
  Next

  Return -1
End Function