CALL TEST(A) 'THIS LINE APPEARS ON YOUR ERROR MESSAGE SUB TEST(A) END SUB