In der alten Version ging es so, wie du es anfangs geschrieben hattest, also einfach strar ohne Klammern.
Allerdings hast du bei genauerem Hinsehen noch andere Fehler drin.
Dies hier
Tmp = Searchstring(gps_ovl(1) , Tmp)
wird nicht gehen, weil du gleich zu Anfang den Funktionswert auf 0 setzt und damit wird Tmp auch auf 0 gesetzt.
Zum Testen hast du wohl noch dies drin
Print Asc(strar(i))
in strar(i) steht ja schon der ASCII Wert der Stringzeichen, die Funktion Asc ist also unnötig.