Coading Of Simple Interest

Dim P As Double

Dim R As Double

Dim T As Double

Dim S As Double

Private Sub Command1_Click()

P = Text1.Text

R = Text2.Text

T = Text3.Text

SI = P * R * T / 100

Text4.Text = SI

End Sub