Find position in an array, need to improve the performance

Hello all,

How can I improve the performance of the code below. I got two array DestArray and strArray. I would like to check if all numbers in DestArray exist in strArray and get the position in the strArray if it exist.

/ P

    For i = 1 To UBound(DestArray)
        Pos = Application.Match(DestArray(i, 1), strArray, False)
        If Not IsError(Pos) Then
        Else
            MsgBox "Not Found"
        End If
        DoEvents
    Next i