使用输入框查找单元格，然后使用另一个输入框在vba中从单元格中减去单元格

Question

我正在创建一个简单的电子表格来管理库存。通过使用输入框在A列中找到一个部件号（这是一个部件号），然后是另一个输入框，用于从找到的单元格右侧的单元格中减去第二个输入框中输入的数字。 （这是库存数量）。我是vba的新手所以请耐心等待。这就是我到目前为止所拥有的。我可以找到零件编号，但我不知道如何减去数量。

Sub Find_First()
    Dim FindString As String
    Dim Bog As Range
    FindString = InputBox("Scan Barcode Or Enter Part Number")
    If Trim(FindString) <> "" Then
        With Sheets("Inventory").Range("A:A")
            Set Rng = .Find(What:=FindString, _
                After:=.Cells(.Cells.Count), _
                LookIn:=xlValues, _
                LookAt:=xlWhole, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Part number not found"
            End If
        End With
    End If
End Sub