I thought I pasted but see that it didn't stick. Sorry about that.
Ended up where I forgot something on the GetScreen.
code from original post above with corrections in bold:
......
PutScreen strDE, 20, 19, True
PutScreen "X", 19, 20, True
strRetVal GetScreen(9, 2, 6)
With...