Visual Basic 6 - snippet code