在vb.net中搜索数组

Public Shared Function SearchArray(ByVal arr As Array, ByVal searchTerm As String) As Array
    Dim foundTerms As New List(Of String)
    For Each item As Object In arr
        If TypeOf item Is String Then
            Dim str As String = CType(item, String)
            If str.Contains(searchTerm) Then
                foundTerms.Add(str)
            End If
        End If
    Next
    Return foundTerms.ToArray
End Function