Modify Loop (2002 SP-2)

Now I understand what HansV meant by whether I really wanted to interupt a process with a msgbx (it pops up every time the On Timer event fires, even though there's no new info). In the follwing code (extracting info from a received OL e-mail), I would now like to remove the msgbx and add blnWeight to the UPDATE portion of the strSQL. This way I can see from the check-box (blnWeight) in the continuous form that a particular order has been amended. As good as I am at butchering code, I thought I'd better ask for help right up front.
<pre> ' Loop through mail items
For i = lngNumItems To 1 Step -1
Set objOLItem = objOLFolder.Items(i)
strSubject = objOLItem.Subject
' Check if subject contains PRO#
intPos = InStr(strSubject, "PRO# ")
If intPos > 0 Then
' Assemble SQL string
strProNo = Val(Mid(strSubject, intPos + 5))
strReceived = "#" & Format(objOLItem.ReceivedTime, "mm/dd/yyyy hh:mm AM/PM") & "#"
lngWeight = ExtractNumber(objOLItem.Body)
strSQL = "UPDATE tblMaster SET datWeight=" & _
strReceived & ",lngWeight=" & lngWeight & " WHERE ProNo=" & strProNo & _
" And (datReceived Is Null Or datReceived<" & strReceived & ")"
If MsgBox("You are about to update the weight for PRO#" & strProNo & _
". Continue?", vbQuestion + vbYesNo = vbYes) Then
' Update record
CurrentDb.Execute strSQL
End If
End If
Next i</pre>