I'm not sure about your specific case, but the following shows "my special constant"
Const myConst As String = "my special constant" Sub test() MsgBox myFtn(myConst) End Sub Function myFtn(inString As String) As String myFtn = inString End Function