Hi

"InP(Val("&H0378"))"

Have you tried

InP(&H0378)

I suggest this because the "&" denotes a hex number following.