รบกวนช่วยดูโค้ดการตัดสต็อก LINQ VB.NET ให้หน่อยครับ

                Dim RawmaterialID As String
                Dim cRealQuantity As Double

                    '1.เลือกส่วนประกอบของสินค้าที่เป็นวัตถุดิบและจำนวนวัตถุดิบ
                        Dim pas = db.Components.FirstOrDefault(Function(id) id.ProductID = ProductID)  
                        RawmaterialID = CStr(Convert.ToInt32(pas.RawMaterialID))
                        cRealQuantity = Convert.ToInt32(pas.RealQuantity * Amount)

                     '2.เลือกวัตถุดิบและจำนวนวัถุดิบในสาขาของตัวเอง
                        Dim psms = From psm In db.RawMaterialOnBranches 
                                   Where psm.RawMaterialID = RawmaterialID 
                        Where psm.BranchID = BizConfig.BranchID  
                        If psms IsNot Nothing Then
                            For Each pi In psms
                                Dim sRawmaterial = pi.RawMaterialID
                                Dim sRealQuantity = pi.RealQuantity

                                'นำ 1 และ 2 มาลบกัน        
                                Dim pis = db.RawMaterialOnBranches.FirstOrDefault(Function(id) id.RawMaterialID = RawmaterialID)
                                CurrentRealQuantity = CDbl(Convert.ToInt32(sRealQuantity - cRealQuantity))
                                pi.RealQuantity = Convert.ToInt32(CurrentRealQuantity)
                                If pis IsNot Nothing Then
                               
                                End If
                            Next
                        End If
                    End If
                Next

                db.CashSales.InsertOnSubmit(cs)
                db.SubmitChanges()
                ts.Complete()
            End Using
        End If