Hallo,
hat wer eine Idee das anders zu machen? Also ohne Strict On auszumachen?
Public Shared Function IsIn(ByVal Val1 As Object, ByVal ParamArray Val2() As Object) As Boolean
Dim i As Integer
If UBound(Val2) = 0 And IsArray(Val2(0)) Then
i = LBound(CType(Val2(0), Array))
IsIn = False
While i
MfG Dominik