Question

VB6类模块和模块之间的调用问题

Common类模块有函数
Public Sub OutStr(Vstr)
Response.Write (Vstr) & vbCrLf
End Sub

以下是网页ASP代码，结果现实正确
Dim MyStr
Set MyStr=Server.CreateObject("HookCMS.Common")
MyStr.Outstr("现实的内容")

Public模块代码：
Dim Cls As New Common
Sub Out(Vstr)
Cls.OutStr (Vstr)
End Sub

另外一个ASP页面代码，结果访问错误
Dim MyStr
Set MyStr=Server.CreateObject("HookCMS.Public")
MyStr.Out("现实的内容")

希望帮忙指点下，谢谢
上面描述错误，请看下面说明：
Common类模块有函数
Public Sub OutStr(Vstr)
Response.Write (Vstr) & vbCrLf
End Sub

以下是网页ASP代码，结果现实正确
Dim MyStr
Set MyStr=Server.CreateObject("HookCMS.Common")
MyStr.Outstr("显示的内容")

Public模块代码：
Dim Cls As New Common
Sub Out(Vstr)
Cls.OutStr (Vstr)
End Sub

Main类模块代码：
Public Sub Main()
Out("显示的内容")
End Sub

另外一个ASP页面代码，结果访问错误
Dim MyStr
Set MyStr=Server.CreateObject("HookCMS.Main")
MyStr.Main

问题我自己解决完毕，虽然没用你们的方法，但是我感觉ljl88900更明白我想干什么，同时，以前帮忙解决过问题，这份算送给ljl88900 了

Answer 1

将 public 模块的名字改成 public101 看看
将 main 类模块的名字改成 main101看看
public 和 main 为系统占用的命名空间，我不能使用这两个命名空间定义类模块的名字。

Answer 2

只修改下面模块，看看行不行：
Public模块代码：
Sub Out(Vstr)
Dim Cls
Set Cls=Server.CreateObject("HookCMS.Common")
Cls.OutStr (Vstr)
End Sub