title: Visual Basic loan interest and principal calculator
body: <p>I'm trying to get the program to output the principal paid out to and the interest paid 
  towards a loan of $5000. No input is take its all been declared already. </p>
  
  <pre><code>    Private Sub calButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calButton.Click
      Dim monthlyPayments As Double
      Dim bloanTotal As Double = 5000
      Dim rate As Double = 0.005
      Dim interest As Double
      Dim toPrincipal As Double
      Dim toInterest As Double
      Dim counter As Integer
  
      Do
          'calculate the montly payments.
          monthlyPayments =
      Financial.Pmt(0.06 / 12, 12, 5000)
          TextBox1.Text = monthlyPayments.ToString("C2")
  
          counter = counter + 1        'add one to the counter 
          interest = bloanTotal * rate    'calculate interest rate from payment that will only count as interest
          toInterest = monthlyPayments - interest 'amount of monthly payment going towards interest
          toPrincipal = monthlyPayments - toInterest ' amount of monthly payment going towards principal
          bloanTotal = bloanTotal - toPrincipal 'new balance after deducing principal from begining balance
  
          Label2.Text = toPrincipal.ToString &amp; "      " &amp;
                        toInterest.ToString &amp;
                        ControlChars.NewLine ' concatinate principal and interest strings and create a new line
  
  
          If counter = 12 Then 'exit loop once counter has reached 12 and loan amount has reached zero
              Exit Do
          End If
      Loop
  End Sub
  </code></pre>