Is this possible in VB? Thanks for any help