VB6 - Basic Flood Protection

Well i made a basic chat client to connect to battle.net servers. Recently their has been heaps of updates so my bot has been discontinued. But here is the function its pretty basic.

VB Code:

Public Function SendData(Text As String)
Form1.txtsend.Text = Form1.txtsend.Text + 1
'Basicaly, just adds one digit to the Flood Counter Txt
'Then sends the actual text through Clean Slate...
 
'But if the FloodC is >= 1, then it'll wait until it
'drops back down to 0, before it proceeds to send
'more data.
If Form1.txtsend.Text >= "1" Then
   Do Until Form1.txtsend.Text = "0"
       DoEvents
   Loop
End If
DoEvents
End Function

It would be nice to see it in action (to see where this code would be used)

You should give an example

Try this;

working on server/client VB6 based games ? if ti works , please tell me how to use it :)