Fejl med UBound i function

Hej

Jeg har denne funtion

        Function in_array(element, arr)
          in_array = False
          For ii = 0 to Ubound(arr)
            If Trim(arr(ii)) = Trim(element) Then
                in_array = True
                Exit Function     
            End If
          Next
        End Function

Men jeg modtager denne fejl:
Type mismatch: 'Ubound'
på  denne linie:
For ii = 0 to Ubound(arr)

element indeholder: 3
arr indeholder 1,3,4,5

Hvorfor dælen får jeg den fejl?