Tidied up VB6 example