Sub six()
    Dim n As Integer, s As String, f As String, Table(15) As Integer, Z As Integer, k As String

    Z = 0

    For n = 1 To 15
        Table(n) = Rnd * 15
    Next n

    For n = 1 To 15
        s = s & Table(n) & " "
    Next n
    MsgBox s

    For n = 1 To 15
        If 3 <= Table(n) <= 11 Then
            Z = 1 + Z
        End If
        f = f & Table(n) & " "
    Next n

    If Z < 4 Then
    Else
    For n = 1 To 15
    Next n

    MsgBox f
End Sub