Hallo,
ich verwende zwar auch gerne Overlays, scheint mir hier aber fehl am Platze.

Mach einfach
Code:
Dim Y As Word

Y=PinD
Shift Y, Left, 8
Y=Y+PinL

'oder noch einfacher

Y=Makeint(PinL,PinD)
Gruß

Rolf