Компилятора, vb, под рукою у меня нету, да и не писал я никогда в нём)) но кажись дело и вправду в ByVal попробуй его замени на Integer