Array an Funktion übergeben

Function inArray(ByVal myArray As Variant, strValue As String) As Boolean
'Gibt true zurück, wenn das Array den Wert bereits enthält:
Dim i As Integer
inArray = False
For i = LBound(myArray) To UBound(myArray)
If myArray(i) = strValue Then
inArray = True
Exit For
End If
Next i
End Function

Private Sub UserForm_Initialize()
If inArray(strArrUnternehmen, "test") = False Then ...
End Sub