Calculation of Simple Interest

Public Class Form1
    Dim p, r, t, si, am As Single
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        p = TextBox1.Text
        r = TextBox2.Text
        t = TextBox3.Text
        si = (p * r * t) / 100
        am = p + si
        TextBox4.Text = si
        TextBox5.Text = am
    End Sub
End Class