Visual Basic Function Optional Defiant