Creating the TestIfStatement shows an error

Compile error:
Sub or Function not defined"

I'm not sure why this is happening. I checked the code and all looked right? If anyone can help that would be great. I'm just learning VBA.

Below is what I copied out of the vba editor;

Sub TestIfStatement()

    'declare variable to store sales tax value
        Dim curSalesTax As Currency

    'call function to calculate sales tax
        curSalesTax = CalculateSalesTax(500, 0.05)

    'evaluate sales tax and write proper message
    'to debug window
        If curSalesTax <= 10 Then
            Debug.Print "You are Lucky - the amount of tax is nominal."
        ElseIf curSalesTax > 10 And curSalesTax <= 50 Then
            Debug.Print "The amount of sales tax could have bought you a nice meal."
        Else
            Debug.Print "You bought a really nice item for that tax amount."
    End If

End Sub
__________________________________________________ ________________

Thanks!

Try sticking Public in front of Sub.

-Dave

Hi,

I'm sorry I didn't get back to you earlier on this, but I thank you for the help.

I had put Public in front of Sub and I still couldn't get it to work. I've been so busy lately that I haven't had another chance to try.

Will let you know what I find out after I backtrack to find what I've maybe missed.

Thank You,

Hi,

Just like I was thinking...
While skimming through the beginning of chapter 2 I missed one of the functions.

Function CalculateSalesTax(curPrice As Currency, intTaxRate As Double) As Currency

I guess I need to slow down and make sure I get it all.

Thanks!