Sowas geht so, rein symbolisch :
Dim Address As Word
Dim Address_low As Byte At Address Overlay
Dim Address_high As Byte