mid function cannot find library

use VBA.mid() instead of mid()