Dim g_intHP
Dim g_intWt

Dim g_intHPtoWt

Dim g_intHPtoWtRound

Dim g_intCarType


On error resume next


g_intHP = inputBox ("What is the Torque of your car?", "Enter Tq please")

g_intWt = inputBox ("What is the weight of the car?", "Enter vehicle weight")

'g_intCarType = inputBox ("What type of car is this?" & vbCr & "Format: Year Make Model", "Input Car Type")

g_intHPtoWt = Div (g_intHP, g_intWt)


'msgBox ( err.number )

'msgBox ( err.description )

'msgbox ( err.source )

'msgBox 
Date

g_intHPtoWtRound = Round (g_intHPtoWt, 4)


msgBox ("The HP to Weight ratio is " & g_intHPtoWtRound & " to 1 " & "in your ride.")

'''''''''''''''''''''''''''''''''''''''''''''''''''

Function Div ( l_intHP , l_intWt)

	Div = ( l_intWt / l_intHP)
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''