如何得到查找不到的msgbox？

    在生成的20个数中查找某个数。若查到了，则显示在第几个，若20个里面没有此数，则弹出Msgbox说明找不到。
    这是我的代码，请问要在空档出加什么东西，或修改成怎样？
Private Sub Command1_Click()
  Dim c As Integer, d As Integer
  c = Val(InputBox("请输入您要查找的数字"))
  If Text1.Text = "" Then
    MsgBox "对不起，请先生成随机数！", 0 + 48, "错误"
  Else
    For i = 1 To 20
      If c = a(i) Then
        d = i
        MsgBox "您要查找的数字在第" & d & "号", 0 + 64, "查找结果通知"

.
.
      End If
    Next i
  End If
End Sub

提示: 作者被禁止或删除 内容自动屏蔽

引用:原帖由 leoseon 于 2012-1-24 21:17 发表 : bbs.pep.com.cn/redir...=7195993&ptid=465525
看不懂这是什么程序。VB吗/。
vb98、vba6、vba7

百度一下你就知道