Module help

[clickingwires]

I have a huge chunk of if statements that I am trying to put into a module. I have one created with the if statements in there for the code. It is a function called GetSQL and I am trying to pass 9 variables to it and then get a string out of it. But every time I try to call it using IncSQL = GetSQL( ...) it says "Sub or Function not Defined) Can anyone help me. I have never created a module before so I need lots of help.

[clickingwires]

Here is my code

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qd As DAO.QueryDef
Dim rst As DAO.Recordset
Dim DateSQL, PostSQL, PDSQL1, PDSQL2, PDSQL3, PDSQL4, PDSQL5, PDSQL6, PDSQL As String
Dim FormSQL1, FormSQL2, FormSQL3, IncSQL As String
 
 
'ProjEA, ProjName, Phase, CountyCheck, RouteCheck, Begin, Ending
 
IncSQL = GetSQL(ProjEA, ProjName, Phase, CountyCheck, RouteCheck, Begin, Ending)
 

---------

Function GetSQL(ProjEA, ProjName, Phase, CountyCheck, RouteCheck, Begin, Ending As String) As String
 
If ProjEA = True And ProjName = True And Phase = True And CountyCheck = True And RouteCheck = True And Begin = True And Ending = True Then
    IncSQL = "Proj.EA, Proj.ProjName, Proj.Phase, Postmiles.County, Postmiles.Route, Postmiles.Start, Postmiles.End"
.
.
.
Else
MsgBox "Please Select at least one Output", , Error
 
End If
 
 
End Function
 

[clickingwires]

Got it working!

The code needed to be in the Module portion not the Class portion