帮我写个VBA小程序实现对服务标准服务检查监管转办95580账户管理账户管控纪念币培训环境创新管理物料管理这些关键字分类生成不同的分类文本记录并且可以随时调用对话框通过输入关键字调用、编辑相应的分类内容。

Sub ClassifyKeywords()

Dim Standard As String '服务标准 Dim Inspection As String '服务检查 Dim Supervision As String '监管转办 Dim Telephone As String '95580 Dim AccountManagement As String '账户管理 Dim AccountControl As String '账户管控 Dim CommemorativeCoins As String '纪念币 Dim TrainingEnvironment As String '培训环境 Dim InnovationManagement As String '创新管理 Dim MaterialManagement As String '物料管理

Dim Keyword As String '输入的关键字 Dim Category As String '分类

'定义分类文本记录 Standard = "这里是服务标准的内容。" Inspection = "这里是服务检查的内容。" Supervision = "这里是监管转办的内容。" Telephone = "这里是95580的内容。" AccountManagement = "这里是账户管理的内容。" AccountControl = "这里是账户管控的内容。" CommemorativeCoins = "这里是纪念币的内容。" TrainingEnvironment = "这里是培训环境的内容。" InnovationManagement = "这里是创新管理的内容。" MaterialManagement = "这里是物料管理的内容。"

'输入关键字 Keyword = InputBox("请输入关键字：")

'分类 Select Case Keyword Case "服务标准" Category = Standard Case "服务检查" Category = Inspection Case "监管转办" Category = Supervision Case "95580" Category = Telephone Case "账户管理" Category = AccountManagement Case "账户管控" Category = AccountControl Case "纪念币" Category = CommemorativeCoins Case "培训环境" Category = TrainingEnvironment Case "创新管理" Category = InnovationManagement Case "物料管理" Category = MaterialManagement Case Else MsgBox "分类不存在。" End Select

'输出分类内容 If Category <> "" Then MsgBox Category End If

End Sub