如何在VBA中显示错误13时更正用户表单？

Sub HandleError()
    On Error GoTo ErrorHandler
    
    ' 读取用户输入的数值
    Dim userInput As Integer
    userInput = CInt(InputBox("请输入一个整数："))
    
    ' 检查是否发生了类型不匹配的错误
    If Err.Number = 13 Then
        ' 清除用户输入的数值
        userInput = 0
        
        ' 显示错误消息给用户
        MsgBox "请输入一个有效的整数。"
        
        ' 重新获取用户输入的数值
        userInput = CInt(InputBox("请重新输入一个整数："))
    End If
    
    ' 执行其他操作...
    
    Exit Sub
    
ErrorHandler:
    ' 处理其他错误
    
End Sub