向大佬求救，这个怎么做

输入按钮为cInput，计算按钮为cRun
供参考..
Dim x As Integer
Private Sub cInput_Click()
x = Val(InputBox("输入一个数"))
Text1 = x
End Sub
Private Sub cRun_Click()
MsgBox IIf(Len(x) = 2, "是两位数", "不是两位数")
MsgBox IIf(x >= 5, x + 3, x - 3)
End Sub

这步需要吗