主题：无输入值时禁止InputValue对话框关闭

 当弹出InputValue对话框后用启用必须要输入一个值，否则中止执行，不能关闭或取消此对话框，要怎么才能实现？谢谢！

弹出对话框的代码如下：

Dim Val As String
  If InputValue(Val,"复制新增","请手工输入新的'" & s(i) & "'") Then
       If Val Is Nothing
           MessageBox.Show(s(i) & "不能为空!","提示")
          Return  '禁止关闭对话框
        Else 
          e.DataRow(s(i)) = Val
       End If
End If