Visual Basic Sub Command Patch