answer = MsgBox("Total Amount: " & stotal, vbInformation + vbOKOnly, "Summary Order")
If answer = vbOKOnly Then
answer = MsgBox("Confirm the order/s?", vbInformation + vbYesNo, "Result")
If answer = vbYes Then
MsgBox "thank u"
Else
MsgBox ""
stotal = 0
End If
End Sub
answer = MsgBox("Total Amount: " & stotal, vbInformation + vbOKOnly, "Summary Order")
If answer = vbOKOnly Then
answer = MsgBox("Confirm the order/s?", vbInformation + vbYesNo, "Result")
If answer = vbYes Then
MsgBox "thank u"
Else
MsgBox ""
stotal = 0
End If
End Sub