在“出彩中国人”的一期比赛中，有6位歌手（1～6）登台演出，由现场的百家大众媒体投票选出最受欢迎的出彩之星，各家媒体独立地在投票器上选出3位出彩候选人，其中媒体甲是1号歌手的歌迷，他必选1号，另在2号至6号中随机的选2名；媒体乙不欣赏2号歌手，他必不选2号；媒体丙对6位歌手的演唱没有偏爱，因此在1至6号歌手中随机的选出3名．

求媒体甲选中3号且媒体乙未选中3号歌手的概率；

实现上述功能的VB程序如下，但横线处代码有错，请改正。

Private Sub Command1_Click()

    Dim a As String

    Dim x As Integer, s As Integer, k As Integer

    a = Text1.Text

    x = 1: s = 0: k = 0

    For i = 1 To Len(a)

        '如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序

        If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57)  or(Asc(Mid(a,i,1))= 32)  then’____Label1.Caption = "只能输入数字或空格"

            Exit Sub

        End If

        If Mid(a, i, 1) = " " Then

            s = s + Mid(a,x,i)’____

            x = i + 1

            k = k + 1

        End If

    Next i

    Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

End Sub