Sub arr1()

    Dim i As Integer
    Dim arr() As Variant

    For i = 1 To 1000
        ReDim Preserve arr(i)
        arr(i) = "35SLFR0006350PBZ5"
    Next i

    ' Below is where I get stuck. I need it to find PBZ5 and replace with a blank.
    'If arr contains PBZ5' Then 'replace it with "" '

End Sub