Visual Basic Substring Function Example Math