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
本文出自 “frank_zfh” 博客，请务必保留此出处http://zengfanhong.blog.51cto.com/8894077/1888174
原文：http://zengfanhong.blog.51cto.com/8894077/1888174