Look at this line and insetad of MsgBox use .lbProduct.Value in your other places

If Not IsNull(.lbProduct.Value) Then MsgBox .lbProduct.Value