Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Formatted proper currency format ($### ##)

Sub loanPayment()    Dim dblRate As Double    Dim intTerm As Integer    Dim dblPrincipal As Double    Dim dblPayment As Double    Dim strFormat As String    dblRate = 0.075    intTerm = 5    dblPrincipal = 75000    strFormat = "$###.##"    dblPayment = Pmt(dblRate / 12, intTerm * 12, -dblPrincipal)    msgBox "The monthly payment is: " & Format(dblPayment, strFormat) End Sub