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