you cannot directly call sub with parameter. The way this can be done is with using variable. In the sub just read the variable content. Something like this:
sub ShowVariableContent
set v = ActiveDocument.Variables("vShow")
show = v.GetContent.String
msgbox(show)
end sub
Inside macro module you can use functions and pass them the value: