Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		Dim PaymentText As New Double
		Dim rate As New Double
		Dim principal As New Double
		Dim months As New Integer
		 
		rate = rate / 1200 + TextBox2.Text
		principal = TextBox3.Text
		months = TextBox4.Text

		PaymentText = (rate + (rate / ((1 + rate) ^ months) - 1)) * principal
		Label1.Text = PaymentText
	End Sub