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