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 Horsepower of your car?", "Enter HP 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

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