Mid In Visual Basic