Pass HTMLDocument from Sub to Function

Question

I am trying to reference an HMTL Document, used in a Sub, to a Function; I keep getting the following error:

Run-time error \'424\':

Object Requir