提示对话框怎么切换语言

在另外建一个表，用来存放字符串

表名：字符串

字段：

ID        自动编号类型（主键）
中文字串  文本（或备注）
英文字串  文本（或备注）

然后在消息框那里根据语言设置来调用，为了使用上的简单，可以定义一个全局变量

Public g_strStringFieldName As String

然后在启动时或切换语言之后对这个变量里进行设置：

Select Case Nz(DLookup("当前语言","语言设置"),"English")
Case "Chinese"
    g_strStringFieldName="中文字串"
Case "English"
    g_strStringFieldName="英文字串"
End Select

再写一个通用的函数来获取存放在表中的字符串：
Public Function GetMsgString(ID As Long) As String
    GetMsgString=Nz(DLookup(g_strStringFieldName,"字符串",ID=" & ID))
End function

然后就可以在用到消息框的地方：
MsgBox GetMsgString(12),vbInformation