Ping / Packet te groot

[GDay]

Ik heb dus een ping probleempje
je kan de packet groote zelf bepalen door text in een textbox te zetten
Hoemeer text hij pingt hoe groter het packet
meer als de packet groote 250 is krijg ik een runtime foutmelding

Dit is het stukje code waar het om gaat denk ik

Private Sub tmr12_Timer()
 Dim ECHO As ICMP_ECHO_REPLY
   Dim pos As Long
   Dim success As Long
   
   If SocketsInitialize() Then
   
    
      success = Ping((Text1.Text), (Text2.Text), ECHO)
   
      Text3(0).Text = GetStatusCode(success)
      Text3(1).Text = ECHO.Address
      Text3(2).Text = ECHO.RoundTripTime & " ms"
      Text3(3).Text = ECHO.DataSize & " bytes"
      
      If Left$(ECHO.Data, 1) <> Chr$(0) Then
         pos = InStr(ECHO.Data, Chr$(0))
         Text3(4).Text = Left$(ECHO.Data, pos - 1)
      End If
   
      Text3(5).Text = ECHO.DataPointer
      
      SocketsCleanup
      
   Else
   
        MsgBox "Windows Sockets for 32 bit Windows " & _
               "environments is not successfully responding."
   
   End If
End Sub

Weet iemand hoe ik dat kan fixen?