fixed minor bug in vb