Function ShowMsg(ByVal prompt as String , 
                 Optional ByVal Styles as VbMsgBoxStyle,
                 Optional ByVal Suggestions as String, 
                 Optional ModuleID as String,
                 Optional Where as String,
                 Optional Where2 as String) as VbMsgBoxResult

显示和用户交换的信息，类似VB的MsgBox，我们不建议使用MsgBox 是因为

1.  MsgBox 内显示的信息用户 不能拷贝和粘贴，经常需要用户截屏，不方便

2.  自定义的信息框和整个程序融合会更好，界面一致，用户体验会比较好

前两个参数和VB的Msgbox参数一致，后面的参数和 MyApp.ShowErr 一致

返回值 和 VB 的 MsgBox 一致