Public Sub Foo()
    Const const1 As Integer = 9
    Goo const1
End Sub

Public Sub Goo(ByVal arg1 As Integer)
End Sub

internal class VbaProjectStream
    {
        private const UInt16 Reserved1Sig = 0x61cc;
        private const UInt16 VersionSig = 0xffff;

        private const byte Reserved2Sig = 0x0;   // Undefined. MUST be ignored.
        private UInt16 reserved3;
        private byte[] cache;

        internal VbaProjectStream(ICFStream rawStream)
        {
            using (BinaryReader reader = new BinaryReader(new MemoryStream(rawStream.GetData()))) {
                if (reader.ReadUInt16() != Reserved1Sig)

public class ModuleStream
	{

		private ProjectModules.ModuleRecord _moduleRecord;
		private string _streamName;
		private byte[] _cache;

		private string _code;

		internal ModuleStream(ICFStream rawStream, ProjectModules.ModuleRecord moduleRecord, UInt16 codePage)
		{
			_moduleRecord = moduleRecord;
			_streamName = rawStream.Name;

			using (BinaryReader reader = new BinaryReader(new MemoryStream(rawStream.GetData()))) {
				_cache = reader.ReadBytes(moduleRecord.TextOffset);

				byte[] compressedData = reader.ReadBytes((UInt32)reader.BaseStream.Length - moduleRecord.TextOffset);