Visual Basic Mid Function Example