Private
在模块级用于声明私有变量并分配存储空间。
语法：
Private [ WithEvents ] varname [ ( [ subscripts ] ) ] [ As [ New ] type ] [ , [ WithEvents ] varname [ ( [ subscripts ] ) ] [ As [ New ] type ]] . . .
- WithEvents
- 可选 指定varname是用于响应ActiveX对象触发事件的对象变量的关键字。WithEvents仅在类模块中有效。可以使用WithEvents声明任意数量的单独变量，但不能使用WithEvents声明数组，也不能将New与WithEvents组合使用。
- varname
- 变量名称；遵循标准变量命名约定。
- subscripts
- 可选 数组变量的维度；最多可声明60个多维。subscripts参数使用以下语法：[ lower To ] upper [ , [ lower To ] upper ] . . .。当lower未显式指定时，数组的下界由Option Base语句控制。如果没有Option Base语句，下界为零。
- New
- 可选 启用隐式对象创建的关键字。当使用New声明对象变量时，首次引用时创建对象的新实例，因此不需要**Set语句来赋值对象引用。New关键字不能用于声明任何内部数据类型的变量或声明依赖对象的实例，也不能与WithEvents**一起使用。
- type
- 可选 变量的数据类型；可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal、Date、String（用于变长字符串）、String length（用于定长字符串）、Object、Variant、用户自定义类型或对象类型。为每个定义的变量使用单独的As type子句。
Private变量仅在其声明的模块中可用。
使用Private语句声明变量的数据类型。例如，以下语句将变量声明为Integer：
Private NumberOfEmployees As IntegerPrivate语句也可以声明变量的对象类型。以下语句声明一个新工作表实例的变量：
Private X As New Worksheet如果声明对象变量时未使用New关键字，则引用该对象的变量必须在使用前通过Set语句赋值一个现有对象。在赋值对象之前，声明的对象变量具有特殊值Nothing，表示它不引用任何特定的对象实例。
当未指定数据类型或对象类型，且模块中没有Deftype语句时，变量默认为Variant。
带空括号的Private语句也声明动态数组。声明动态数组后，在过程中使用**ReDim语句定义数组的维度和元素数。对在Private**、Public或Dim语句中显式指定大小的数组变量重新声明维度会引发错误。
变量初始化时，数值变量初始化为0，变长字符串初始化为零长度字符串（""），定长字符串用零填充。Variant变量初始化为Empty。用户自定义类型变量的每个元素作为独立变量初始化。
INFO
Private语句不能在过程内部使用；请使用**Dim**语句声明局部变量。
Private关键字也用作**Sub、Function和Property**声明中的过程修饰符，使这些过程仅在其声明的模块内可访问。
示例
本示例展示在模块级使用Private语句将变量声明为私有；即它们仅在其声明的模块中可用。
Private Number As Integer ' Private Integer variable.
Private NameArray(1 To 5) As String ' Private array variable.
' Multiple declarations, two Variants and one Integer, all Private.
Private MyVar, YourVar, ThisVar As Integer