请教代码？

Question

一个文本矿，输入数据。
首先判断数据类型，必须是字符和整型，如果不是，弹出MSGBOX选择，从新输入或退出，选重新输入后，光标还回到原来的文本框

Answer 1

IsNumeric 函数
      返回 Boolean 值，指出表达式的运算结果是否为数。语法IsNumeric(expression)必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。说明如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。如果 expression 是日期表达式，则 IsNumeric 返回 False。
IsNumeric 函数示例
本示例使用 IsNumeric 函数判断变量的值是否可为数值。Dim MyVar, MyCheck
MyVar = "53"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。MyVar = "459.95"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。MyVar = "45 Help"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 False。

Answer 2

to numberprivate sub key_press(keyascii as integer)
  keyascii = filterNumber(keyascii)
end subpublic funtion filterNumber(pintKeyascii as Integer) as Integer
  if pintkeyascii <'9' and pintkeyascii > '0' then
     filterNumber = pintkeyascii 
  else
     filterNumber  = 0
  end if
end function