Error when Shapes.AddPicture can find the path

Hi i have a macro that check different extension to find the correct pic on the pc and i do it via error check is error then check the next extension like this   On Error Resume Next If Err.Number...