Listing 32.4 32LIST04.TXT Sprawdzanie bilansu konta

Private Sub btnBalance_Click()
  Dim input_str
  input_str = InputBox("Enter ending balance from Account Statement",    App.Title, "0",,, "CHECK.HLP", 2000)
    If input_str = "" Then
    MsgBox "Account Balance function cancelled", vbExclamation, App.Title
  Else
    account_balance_amt = Val(input_str)
    If account_balance_amt > 0 Then
      chkbal.Show
    Else
      MsgBox "Ending Balance Amount must be grater than zero!", vbExclamation, App.Title
        End If
  End If
End Sub
