急！超级弱的问题！大侠帮忙！

Question

我想把
MsgBox "错误", vbInformation, "专家门诊"
中的"专家门诊"提取出来，成为模块中的变量，大家只要用字符串名称（如msgtitle）就可以了，不必在写中文了。可是我在模块里和form里搞了半天。没弄对，请求各位帮助。我这样写的：
form中  MsgBox "错误", vbInformation, msgtitle模块中：
Option ExplicitPublic MsgBoxTitle As String
 MsgBoxTitle = "专家门诊"可是不对，该怎么写呢？

Answer 1

模块中：
Option Explicitpublic const MsgBoxTitle = "男性专科"form中  
MsgBox "错误", vbInformation, msgtitle    经常用到的就定义为常量咯

Answer 2

模块中：
Option Explicitpublic const MsgBoxTitle = "男性专科"form中  
MsgBox "错误", vbInformation, MsgBoxTitle 经常用到的就定义为常量咯这样才对，不好意思

Answer 3

Dim a(3)
a(1) = "男性专科"
a(2) = "女性专科"
a(3) = "儿童专科"
For i = 1 To 3
MsgBox "错误", vbInformation, a(i)
Next
这样也可以的

Answer 4

改一下：
Dim a(3) as string
a(1) = "男性专科"
a(2) = "女性专科"
a(3) = "儿童专科"
For i = 1 To 3
MsgBox "错误", vbInformation, a(i)
Next
这样也可以的

Answer 5

form中  MsgBox "错误", vbInformation, msgtitle模块中：
Option ExplicitPublic MsgBoxTitle As StringSUB MAIN
 MsgBoxTitle = "老中医 女人的事情我来办！"
END SUB