vhUnitTest.TestCase aTestName:%String 1