Test this:
Sub blah()
Dim AllCodes(), Addresses(), FoundCells As Range
ReDim AllCodes(1 To 1)
ReDim Addresses(1 To 1)
For Each cll In Sheets("Product Sample").Columns(1).SpecialCells(2).Cells
'Debug.Print cll.Address(0, 0), cll.Value
cll.Value = Replace(cll.Value, " ", "")
zz = Split(cll.Value, "-")
If UBound(zz) = 0 Then zz = Split(cll.Value, ",") 'either it's split with - or comma, not both.
' Debug.Assert cll.Row <> 56
Select Case UBound(zz)
Case 0
'Debug.Print zz(0), cll.Address(0, 0)
J = J + 1
ReDim Preserve AllCodes(1 To J)
ReDim Preserve Addresses(1 To J)
AllCodes(J) = zz(0)
Addresses(J) = cll.Address(0, 0)
Case Is > 0
'Stop
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True
RegEx.Pattern = "[A-Za-z]"
zz(UBound(zz)) = RegEx.Replace(zz(UBound(zz)), "")
DigitCount = Len(zz(UBound(zz)))
For i = CLng(Right(zz(0), DigitCount)) To CLng(zz(UBound(zz)))
'Debug.Print Left(zz(0), Len(zz(0)) - DigitCount) & Format(i, Left("000000000", DigitCount)), cll.Address(0, 0)
J = J + 1
ReDim Preserve AllCodes(1 To J)
ReDim Preserve Addresses(1 To J)
AllCodes(J) = Left(zz(0), Len(zz(0)) - DigitCount) & Format(i, Left("000000000", DigitCount))
Addresses(J) = cll.Address(0, 0)
Next i
End Select
Next cll
Debug.Print J
FindMe = Sheets("UserForm Search").TextBox1.Value
For i = LBound(AllCodes) To UBound(AllCodes)
If AllCodes(i) = FindMe Then
If FoundCells Is Nothing Then
Set FoundCells = Sheets("Product Sample").Range(Addresses(i))
Else
Set FoundCells = Union(FoundCells, Sheets("Product Sample").Range(Addresses(i)))
End If
End If
Next i
If Not FoundCells Is Nothing Then
Application.Goto FoundCells
MsgBox FindMe & " found in cells " & FoundCells.Address(0, 0)
Else
MsgBox "Not found"
End If
End Sub