Sub five()
    Dim n As Integer, s As String, f As Long, TableC(8) As Integer, TableB(8) As Integer, Z As Integer, k As String

    For n = 1 To 8
        TableC(n) = Rnd * 25
    Next n

    For n = 1 To 8
        s = s & TableC(n) & " "
    Next n
    MsgBox s


    For n = 1 To 8
        TableB(n) = Rnd * 25
    Next n

    For n = 1 To 8
        k = k & TableB(n) & " "
    Next n
    MsgBox k

    If TableC(n) / 5 Then
        TableB(n) = TableB(n) * 5
    End If

End Sub