vba编写一个程序，实现一个加法器

在VBA（Visual Basic for Applications）中，可以创建一个简单的用户交互界面，让用户输入两个数字，然后显示它们的和。下面是一个基础的加法器程序的例子：

Sub AddNumbers()
    ' 创建一个UserForm用于用户输入
    If Application.VBProject.VBComponents("UserForm1").IsGlobal Then
        MsgBox "UserForm已存在，请先关闭它", vbInformation, "警告"
        Exit Sub
    Else
        UserForm1.Show
    End If
    
    ' 获取UserForm中的文本框输入
    Dim num1 As Variant, num2 As Variant
    num1 = Me.TextBox1.Value ' TextBox1是第一个输入框
    num2 = Me.TextBox2.Value ' TextBox2是第二个输入框

    ' 检查输入是否为空或非数字
    If IsNumeric(num1) And IsNumeric(num2) Then
        ' 计算和并显示结果
        Dim result As Double
        result = num1 + num2
        MsgBox "两个数字的和是：" & result
    Else
        MsgBox "请输入数字！", vbCritical, "错误"
    End If
End Sub

在这个程序中，首先检查UserForm是否存在，如果没有就创建一个新的。然后获取用户在TextBox1和TextBox2中输入的数值，计算它们的和，最后通过MsgBox显示结果。