vb总是提示“类型不匹配，缺少数组或用户定义类型”

vb中定义如下：类模块Class1中代码如下：Dimaa()AsStringPublicSubsetName(ByRefstr()AsString)aa=strEndSubPublicFunctiongetName()AsString()getName=aaEndFunction模块Module1代码如下：PublicMyNameAsNewClass1按钮Command1中代码如下：PrivateSubCommand1_Click()Dimcc()AsStringMyName.setName(cc())EndSub运行时怎么总是提示“类型不匹配，缺少数组或