如何用VB编一个课程表查询工具

用VB编一个程序,要求达到以下几点
第一:星期一和星期三是计算机课
第二:星期二是星期四是程序设计课
第三:星期五是英语学习
第四:星期六是政治学习
第五:星期日是休息
要求:
1:建一个输入框,要求输入1到7的数字,可以查找到当天的课程
如果输入7以上的数字,则显示错误,并要求重新输入
2:用IF语句或者别的语句也可以

Private Sub Command1_Click()
If CInt(Text1.Text) = 1 Or CInt(Text1.Text) = 3 Then
MsgBox "计算机课", 64
ElseIf CInt(Text1.Text) = 2 Or CInt(Text1.Text) = 4 Then
MsgBox "程序设计课", 64
ElseIf CInt(Text1.Text) = 5 Then
MsgBox "英语学习", 64
ElseIf CInt(Text1.Text) = 6 Then
MsgBox "政治学习", 64
ElseIf CInt(Text1.Text) = 7 Then
MsgBox "休息", 64
Else
MsgBox "输入错误", 16
End If
End Sub