Stumbled across this -- NOT VB6 -- but may be of interest as appears to be what your after.

http://stackoverflow.com/questions/15149811/how-to-wait-for-async-method-to-complete