代码简化问题

Private Sub Command102_Click()

Dim Msg, Style, Title, Response, MyString 
Msg = "是否执行?"    ' 定义信息。
Style = vbYesNo + vbCritical +

vbDefaultButton2    ' 定义按钮。
Title = "标题栏"    ' 定义标题。

Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' 用户按下“是”。
    MyString = "Yes"       
    DoCmd.RunMacro "报表.msg"

Exit_Command102_Click:
    Exit Sub   
Else

    MyString = "No"

Err_Command102_Click:
    Exit Sub
End If
End Sub

感觉很冗长，能否简化一下。