vb手机号码抽奖程序

要代码！！！急用用VB做一个手机号码抽奖的程序，要代码。。我要交作业。

'一个copyzhidaoCommand1
Private Sub Command1_Click()
Dim a As String, b As Integer, c As String
b = Int(Rand(3, 1))
Select Case b
Case 1
c = "3"
Case 2
c = "5"
Case 3
c = "8"
End Select
a = "1" + c + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0) + Rand(9, 0)
MsgBox a
End Sub
Function Rand(U1, B1) As String
Rand = CStr(Int(Rnd * (U1 - B1) + B1))
End Function

不知道

一共11位数，第一位是1，不管。第二位有些什么（3、5、8好像就这些吧），然后的几位都随机生成（0-9），最后把这几个数连接就行了吧。