Perhitungan Suku Bunga (Visual Basic)

Aplikasi sederhana aja yang bisa saya buat, aplikasi untuk perhitungan suku bunga. Variabel input didapat dari

1. Jumlah Pinjaman
2. Lama Pinjaman
3. Angsuran

Sedangkan untuk variabel output terdapat perhitungan dengan button "Hitung" dengan koding:

Private Sub tombolhitung_Click()
Dim JumlahPinjaman As Double
Dim Angsuran As Double
Dim Rumus As Double
Dim LamaPinjaman As Double
Dim ditampilkan As String

On eror GoTo ErrorHandler

JumlahPinjaman = Text2.Text
Angsuran = Text3.Text
LamaPinjaman = Text4.Text
Rumus = Rate(LamaPinjaman, -Angsuran, JumlahPinjaman)
Rumus = (Rumus * 12 * 100) + 0.005
ditampilkan = Format(Rumus, "##0.00") & "%"

lblhasil.Caption = "Bunga: " & ditampilkan

ErrorHandler:
End Sub

file dapat dilihat disini