How do I get a BattleMsg to the topleft?

[Egon]

Code:

Sub BattleMsg(ByVal Index As Long, ByVal MSG As String, ByVal Color As Byte, ByVal Side As Long)
    Call SendDataTo(Index, "damagedisplay" & SEP_CHAR & Side & SEP_CHAR & MSG & SEP_CHAR & Color & SEP_CHAR & END_CHAR)
End Sub