upCode

　　更新源码
Sub main()
Dim str As String
str = "这是测试的字符串对话框"
MsgBox str
Sheets(1).Select
End Sub