vb 复杂程序

如果inputbox内的值等于1-10，打开msgbox,显示“成功！”，否则，则显示失败
应该是用if条件循环，可我不知如何！
高手！

dim a as integer
a =inputbox " 输入一个数值 "
if a >=1 and a <=10 then
msgbox " 成功 ",64,"提醒 "
else :
msgbox "你输入的数字不在1到10的范围内，重新输入"
exit sub
end if

sub InputboxTest() Dim a As Integer = InputBox("") '获取输入框输入的数字 'a = a * 2 此处可以加数学函数 If (a >= 1) And (a <= 10) Then MsgBox("成功!") Else MsgBox("失败!") End If end sub

visual basic 从入门到精通 视频教程【enet网络学院】 <a href="http://wenwen.soso.com/z/urlalertpage.e?sp=shttp%3a%2f%2fwww.enet.com.cn%2feschool%2fvideo%2fvb%2f" target="_blank">http://www.enet.com.cn/eschool/video/vb/</a>