Hi,

i have writtern this visual basics code for the user to enter there age and there resting heart rate and it works out there trainning heart rate
the only problem is i cant get it to work

(PLEASE NOTE I AM USING WORD 2010 TO WRITE THE CODE WITH VISUAL BASIC UNDER THE DEVELOPER TAB INSIDE OF WORD)

i have created a form and 2 buttons and 2 textboxes
but when i enter for exmple 20 and 123
it gives me a error Run-Time Error '424': object required
this error is given to me every time i put any number in it

the code is
HTML Code:
Private Sub CommandButton1_Click()
 Dim flag As Boolean
 flag = True
 Dim age As Integer
 age = TextBox1.Text
 Dim restingRate As Integer
 restingRate = TextBox2.Text
 txtOutput.Text = CStr(TrainingHeartRate(age, restingRate, flag))
 End Sub
 Private Sub CommandButton2_Click()
 Dim flag As Boolean
 flag = True
 Dim age As Integer
 age = TextBox1.Text
 Dim restingRate As Integer
 restingRate = TextBox2.Text
 txtOutput.Text = CStr(TrainingHeartRate(age, restingRate, flag))
 End Sub
 
Function TrainingHeartRate(ByVal age As Integer, ByVal restingRate As Integer, ByVal flag As Boolean) As Integer
 Dim HRreserve, UpperTrainRate, LowTrainRate As Integer
 Dim maxHR As Integer
 maxHR = 220 - age
 HRreserve = maxHR - restingRate
 
LowTrainRate = CInt(HRreserve * 0.5 + restingRate)
 UpperTrainRate = CInt(HRreserve * 0.85 + restingRate)
 If flag = True Then
 TrainingHeartRate = UpperTrainRate
 Else
 TrainingHeartRate = LowTrainRate
 End If
 End Function