1、过程

Public|Private Sub 过程名(形参, ...)

    ...

End Sub

注：Exit Sub强制退出过程

2、函数

Public|Private Function 函数名(形参, ...) As 返回数据类型

    ...

    函数名=返回值

End Function

注：Exit Function强制退出函数

3、类模块

 Private 变量名 As 数据类型

 Property Get 属性名() As 属性类型

    属性名=变量名

 End Property

 Property Let 属性名（ByVal 形参名 As 数据类型）         

    变量名＝形参名

 End Property

 Property Set 属性名（ByVal 形参名 As 数据类型）         

    ...

 End Property

4、异常处理

 On Error GoTo 标签

 ...

 Exit Sub

 标签:

 ...

 Err.clear