vb这个程序怎么编，急急！！

private sub command1_click()
n=inputbox("输入")
if n>100 then msgbox("成绩出错") :exit sub
if n>=85 then msgbox("优秀") :exit sub
if n>=70 then msgbox("中等"):exit sub
if n>=60 then msgbox("及格"):exit sub
msgbox("不及格")
end sub

private sub command2_click()
end
end sub

晕死！怎么不抓屏？要用相机照？怎么看清楚。