Visual Basic Substring Function Example Negation