VB implementation