How to add string togethor

okay yeah i tested in normally, not sure why it wont work in my program. heres my code!

[code]
Function CommandReader(c.connection)
status=c\status
comm=1
c\comm1$=""
c\comm2$=""
c\comm3$=""
c\comm4$=""
c\message$=""
While ReadAvail(c\stream)
d=ReadByte(c\stream)
Select True
Case d>96
If comm=1 Then c\comm1$=c\comm1$+Chr$(d)
If comm=2 Then c\comm2$=c\comm2$+Chr$(d)
If comm=3 Then c\comm3$=c\comm3$+Chr$(d)
If comm=4 Then c\comm4$=c\comm4$+Chr$(d)
If comm=5 Then c\message$=c\message$+Chr$(d)
Case d=32
c\comm2$=c\comm2$+Chr$(32)
If comm=1 Then comm=2
If comm=2 Then comm=3
If comm=3 Then comm=4
If comm=4 Then comm=5
End Select
Wend
If status=MENU MenuXX C
If status=NEWUSER NewUserX c
If status=SELRACE SelRaceX c
If status=SELCLASS SelClassX c
If status=PLAYING PlayingX c
End Function
Case command$="gossip"
;ks$=Chr$(160)
;comm2$=comm2$+Chr$(32)
;comm3$=comm3$+Chr$(32)
msg$=comm2$+" "+comm3$+" "+comm4$+" "+message$
For a.player=Each player
If a\name$=p\name$ Then
WriteLine p\stream, "You gossip: "+msg$
Else
WriteLine a\stream, p\name$+" gossips "+msg$
EndIf
Next
x=1