Building a Simple Interest Calculator

Dim Principal as Currency
Dim Interest as Single
Dim Term as Integer
Dim Payment as Currency

Principal=val(txtPrincipal.Text)
Interest=val(txtInterest.Text)/100
Term=val(txtTerm.Text)*100
Payment=Principal*(Interest/(1-(1+Interest)*-Term)