Die Variable anders deklariert werden muss
Dim Variable() As Byte
ReDim Variable(1 To 4096) As Byte
 
 
Die Daten müssen in einer Schleife gelesen werden
Dim i%
For i = 1 To LOF(Dateinummer) \ 4096 'Die Daten werden ja in einem 4096 Byte 
' Array gesendet... also Dateigröße (in Bytes) durch 4096 = Anzahl der 
' Schleifendurchläufe!
Get Dateinummer, , Variable 'Startet automatisch bei 1, durch das Auslesen wird 
' die Read Position um 4096 Bytes verschoben...
Winsock.SendData Variable
Next i 
 
Wer aufgepasst hat merkt das beim Teilen durch 4096 sicher ein Rest bleibt... _
  lassen wir doch... auf die maximal 4095 Bytes können wir doch verzichten....
NEIN! - Auch die müssen weg! Also errechnen wir uns den Rest der bei der _
Division der Dateigröße / 4096 übrig bleibt und verändern einfach die _
Arraygröße.
Visual Basic hält für uns die Funktion "MOD" bereit, sie ermittelt den Rest _
einer Division.
If LOF(Dateinummer) Mod 4096 <> 0 Then
ReDim Variable(1 To LOF(Dateinummer) Mod 4096) As Byte
Get Dateinummer, ,Variable 'Die Read Position ist noch an der gleichen Stelle 
' wie beim letzten Aufruf der vorherigen Schleife
Winsock.SendData Variable
End If