QR Code vs BarCode

Hello, The following code will take a QR code down to the "normal" format of the way our part numbers are submitted. However, there are times that we have a repaired part number that has text at the end of the format letting us know it is a repaired part number. Example: Normal part number is formatted as such 410010-5400, six numbers, then a hyphen, then four numbers. This works great and a scanned QR Code will trim and format the same. The repaired part numbers have an RJ at the end of this format like this: 410010-5400RJ. If I scan a bar code or a qr code for a repaired item it will cut the "R" and leave the following: 410010-5400J and can not find this part number in the excel sheet. Please assist. Thanks in advance.

 

If txpn1.Text <> "" Then
Dim qrCode As String: qrCode = txpn1.Text
Dim X
X = Split(qrCode, "$")(0)
X = Format(Replace(X, "R", ""), "000000-0000")
txpn1.Text = X
End If
txpn1.SetFocus