Pass a decimal to a new sub

Hello,

Can someone please take a quick look at my code and let me know what I'm doing wrong.

I don't know how to return a decimal, I'm only getting whole numbers. Am I using the wrong data type?

Also, the IF Else statement is not working. It always returns "You are doing good on gas", regardless of how low the number is.

As you can tell I'm new writing my own code, but am trying to learn the basics still.

Thank you,

Public x As Integer, y As Integer, z As Integer
Sub MilGal()
x = InputBox("How many miles did you travel?", "Enter Miles Driven")
y = InputBox("How many gallons of gasoline did you consume?", "Enter Gallons Used")
Call GetMPG
End Sub

Sub GetMPG()
z = x / y
MsgBox ("Your miles per gallon is ") & z
If x > 29 Then
MsgBox ("You are doing good on gas!!")
Else
MsgBox ("You are doing bad on gas!!")
End If
End Sub

Thank you Tsjallie,

do you know why my if statement is not working right?

sub GetMPG()
z = x/y
MsgBox ("Your miles per gallon is ") & Format(z, "#0.00")
If x > 29 Then
MsgBox ("You are doing good on gas!!")
Else
MsgBox ("You are doing bad on gas!!")
End If
End Sub

It always says "You are doing good on gas!!" regardless of the number.

Do you mean X should be Z? Are you evaluating X or Z?

That means the value of X always greater than 29?
How did you calculate z = x/y?

You guys are correct! Sorry it should be "z" not "x". Sorry I had an idiot moment.