谁帮我做个函数变量用在按键精灵里的A-n个数的得数

Private Sub Command1_Click()
Dim N As Long
N = MyFun(98)
Print N
N = MyFun(1)
Print N
N = MyFun(5)
Print N
End Sub

Private Function MyFun(S As Long) As Long
MyFun = 100 - S
End Function

dim a , x ,ds ,zzz as integer
a=100
Do
x=val(inputbox("请输入数据:"))
ds=a-x
zzz=msbox("结果为:"&str(ds),"结果",1) '弹出窗口显示结果!
loop while zzz=1 '按确定输入下一个数字,按取消则退出

上面弹出窗口后,会有确定和取消2个按钮,如果点确定,刚ZZZ的值为1,取消ZZZ值刚为2!

yes