Function MsgO()
Dim Str As String, Titl As String
Dim Stil As Integer, I As Integer, N As Integer
Dim M As Integer

Str = "Neko upozorenje" & vbCr & "ili obavjestenje"
Titl = "Napomena"

For I = 0 To 64 Step 16
  M = I + 5
  For N = I To M
    msgbox Str, N, Titl
  Next N
Next I
End Function