如何在Outlook VBA输入框中仅允许数字

Function IsNumber(input As String) As Boolean
    If IsNumeric(input) Then
        IsNumber = True
    Else
        IsNumber = False
    End If
End Function

Sub GetNumericInput()
    Dim userInput As String
    
    Do
        userInput = InputBox("请输入数字:")
        
        If Not IsNumber(userInput) Then
            MsgBox "输入无效，请重新输入数字。"
        End If
    Loop Until IsNumber(userInput)
    
    ' 在这里可以使用用户输入的数字进行后续操作
    ' ...
End Sub