Die Funktion gibt das erste Auftreten eines Strings in einem Array von Strings zurück.

Function GetItemPosFromArray(sList() as string, sItem as String) as integer

Dim ItemList()

Dim MaxIndex as Integer

Dim i as Integer

     MaxIndex = Ubound(sList())     

     For i = 0 To MaxIndex-1

          If sItem = sList(i) Then

               GetItemPosFromArray() = i

               Exit Function

          End If

     Next i

End Function