LISTING 32.2 32LIST02.TXT --- Sprawdzanie poprawnoci bilansowania

If out_Balance <> 0 Then
  msg_ans = MsgBox("Account not in balance," + Chr$(9) + "Postpone balancing?", vbYesNo + vbQuestion, APP.Title)
  If msg_ans = vbYes Then
    MsgBox "Account balancing has been postponed",vbExclamation, APP.Title
    Unload Me
  End If  
Else
  MsgBox "Account has been balanced",vbExclamation, APP.Title
  Unload Me
End If
