How can i use this in VB. Thanks