Hallo Chris,
wenn du wenig Zeit hast, dann geht ByVal eigentlich gar nicht, denn dann würde der ganze String in den Frame kopiert, was unendlich Zeit benötigt. Wieso du dann für jeden String eine eigene Funktion brauchst, verstehe ich nicht.

Wenn du die Funktion so deklarierst:
Declare Function Searchstring(Strar() as byte, strsearch as byte) as byte
dann funktioniert die Übergabe als Array.