Iverter ordem de mensagens

Caros amigos,

Preciso da ajuda de vocês.

Estou com um script de chat e preciso que as novas mensagens enviadas apareçam abaixo das que já foram enviadas. No momento as novas mensagens enviadas estão sendo mostradas acima das que já haviam sido enviadas.

Estou inserindo o código abaixo. Já tentei alterar e não obtive sucesso.

Dim i, text

Application.Lock
' move all messages one item down in queue
For i = MESSAGES To 2 Step -1
Application("chatline_" & i) = Application("chatline_" & i-1)
Next
' build new message

text = "<tr>" & _
"<td nowrap align='right' valign='top' class='Name'>" & chatName & "<img src='images/Chatter.gif'></td>" & _
"<td class='Message' align='left' width='100%'>" & textMessage & "</td>" & _
"</tr>" & vbCrLf

' add message as first message in queue

Application("chatLine_1") = text
' update users timestamp
Application.StaticObjects.Item("ASPChatTime").Item(ChatID) = CStr(Now())
Application.UnLock

Espero que possam me ajudar.

Desde já agradeço.