VBA过程代码1 : 使用Dim声明语句
Sub MyNZ()
Dim a as integer '声明a为整型变量
Dim a '声明a为变体变量
Dim a as string '声明a为字符串变量
Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量
……..
End sub
代码的解析及说明：上述代码声明变量可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。 
VBA过程代码2: 使用强制声明变量声明语句
Option Explicit
Sub MyNZ()
……..
End sub
代码的解析及说明：上述代码将强制声明变量，未经声明的变量时不能使用的。该语句必在任何过程之前出现在模块中。
VBA过程代码3: 使用声明常数语句，用来代替文字值。
Sub MyNZ()
Const My = 456 ' 常数的默认状态是 Private。
Public Const MyString = "HELP" ' 声明 Public 常数
Private Const MyInt As Integer = 5 ' 声明 Private Integer 常数
Const MyStr = "Hello", MyDouble As Double = 3.4567 ' 在同一行里声明多个常数
……..
End sub
代码的解析及说明：上述代码过程是常量的声明过程，注意常数的作用范围。 VBA过程代码4：选择当前单元格所在区域
Sub MyNZ()
Selection.CurrentRegion.Select
End sub
代码的解析及说明：在EXCEL中，把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。上述代码就是完成了这个过程。要注意理解CurrentRegion的含义，不清楚的可以到VBA代码解决方案中查找。
VBA过程代码5：返回当前单元格中数据,删除前后空格后的值
Sub MyNZ()
msgbox Trim(ActiveCell.Value)
end sub
代码的解析及说明：上述代码过程用Trim函数，返回当前活动单元格内的数据，此数据是删除前后空格的值。Trim函数是提取input录入数据的常用函数，以避免录入的数据有空格确没有被发现