SI and CI using Vb6

 
Private Sub Command1_Click()
Dim P As Integer, R As Integer, T As Integer
Dim SI
P = Val(Text1.Text)
R = Val(Text2.Text)
T = Val(Text3.Text)
SI = (P * R * T) / 100

Text4.Text = SI
End Sub

Private Sub Command2_Click()
Dim P, R, T As Integer
Dim CI
P = Val(Text1.Text)
R = Val(Text2.Text)
T = Val(Text3.Text)
CI = (P * (1 + R / 100) ^ T) - P
Text4.Text = CI

End Sub

Output