最小的编程程序一共只有十几条的?谢谢!

对任意输入的整数,判断其是否能被7整除,如果能被7整除输出该数除以7的商,否则,输出信息"不能被7整除".
写出VB程序代码

Private Sub Form_Click()
a = InputBox("输入任意整数")
If a Mod 7 = 0 Then
Print a & "除以7的值是" & a / 7
Else
Print a & "不能被7整除"
End If
End Sub