Code:
Private Sub cmdPing_Click()
Dim strData As String
Dim intI As Integer
For intI = 48 To 48 + Val(Text1.text)
    strData = strData & Chr(intI)
Next intI
Winsock1.SendData strData
End Sub
Would that do what I specified in my first post?
Just making sure I understand.
Nothing worse than adding something into your project that you don't understand.
Person - "What does that do?"
Me - "Uhhh" Lol.