Jag vill ha en kö med 5 meddelanden. När det kommer ett nytt meddelande vill jag att det äldsta ska tas bort(om kön är full). Vad ska jag använda. Har testat med en array och listBox men det verkar vara knöligt. Vill inte använda ett recordset.

array är snabbast. du får ta en forsats för att flytta fram alla meddelanden ett steg.

Tack, det funkar fin-fint. Borde tänkt på det från början men jag gjorde det krångligare än va det var!

såhär hade jag gjort:

Sub AddValue(NewDescr As String)
Dim uBnd As Integer

'Lägg maxvärdet i en integer
uBnd = ubound(minArr) - 1

'VBs forsateset kontrollerar satsen varjegång, därför som uBound ligger i en egen variabel
For a=0 To uBnd
'Flytta värdet ett steg
minArr(a) = minArr(a+1)
Next

'Lägg till nya värdet
minArr(uBnd+1) = NewDescr
End Sub

For satsen kontrollerar inte alls värdet för varje loop utan lagrar det internt. Låt mig demonstrera Verifier:
<code>
Function Max() As Long
Debug.Print "Max"
Max = 5
End Function

Sub Test()
Dim Index As Long

For Index = 1 To Max
Debug.Print "Value: " & Index
Next

End Sub
</code>

ok. nåt jag läst på någon site. ingenting som jag kontrollerat själv.
verkade rätt dumt men har aldrig orkat verifiera det.