vhUnitTest.TestCase SoortLade:%String 1