Dim p As Double
Dim r As Double
'Interest Calculator

Dim t As Double
Dim total As Double

Private Sub Command1_Click()

p = Val(Text1.Text)
r = Val(Combo1.Text)
t = Val(Text2.Text) / 12
total = p + ((p * r * t) / 100)
Label5.Caption = total

End Sub

Private Sub Form_Load()

Combo1.AddItem (2)
Combo1.AddItem (3)
Combo1.AddItem (4)
Combo1.AddItem (5)
Combo1.AddItem (6)
Combo1.AddItem (7)
Combo1.AddItem (8)
Combo1.AddItem (9)
Combo1.AddItem (10)
Combo1.AddItem (15)
Combo1.AddItem (20)

End Sub