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

    Z = 0
    h = 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
        For n = 1 To 15
            If Table(n) Mod Z = 0 Then
                h = h + Table(n)
            End If
        Next n
    Else
        For n = 1 To 15
        Next n
    End If

    MsgBox f
End Sub