VBA编译错误，谁能帮我看看？

模块1中的代码：
Option Explicit

Type MyStyle
incHeading3 As Balloon
incHeading4 As Balloon
End Type

Sub createTestReport()
UserForm1.Show
End Sub

Function test(hdStyle As MyStyle)
If hdStyle.incHeading3 = True Then MsgBox "Use wdStyleHeading3"
ElseIf hdStyle.incHeading4 = True Then MsgBox "Use wdStyleHeading4"
End Function

控件对象中的代码：
Private Sub CommandButton1_Click()
Dim hStyle As MyStyle
If CheckBox2.Value Then
hStyle.incHeading3 = True
ElseIf CheckBox3.Value Then
hStyle.incHeading4 = True
End If
test hStyle '调用自定义函数
'UserForm1.Hide
End Sub

使用了自定义结构与自定义函数，随便选择任一个CheckBox，都提示“对象变量或With块变量未设置”。hStyle.incHeading3 或 hStyle.incHeading4 的值都是nothing ，为什么会这样啊？？请高人解答。
另外，调用函数不能用 test (hStyle) 这样，而要用 test hStyle，什么原因？

帮我看看那里有错，编译错误CS1002 编译无错误可是 运行无法响应 大家帮我看看程序有问题么 C++编译时遇到问题了，找不出错误啊，高手帮我看看啊！ C++问题 看看哪里有错误，编译就一处错误 编译错误 谁能帮我看看这个我这个VBA语句有何问题 那位高手帮我看看是哪里错了，编译显示7个错误，都是找不到符号 我用C语言写了一段预测身高的编码,但是编译的时候提示有错误,看看? 我编译的程序有错误，谁能帮我改下，能执行 vc++编译错误