Dim Variable() As Byte
ReDim Variable(1 To 4096) As Byte
Open Pfad + "\" + Dateiname For Binary As 1
 
'Die Daten müssen in einer Schleife gelesen werden
Dim i%
For i = 1 To LOF(1) \ 4096 'Die Daten werden ja in einem 4096 Byte Array 
' gesendet... also Dateigröße (in Bytes) durch 4096 = Anzahl der 
' Schleifendurchläufe!
Get 1, , Variable 'Startet automatisch bei 1, durch das Auslesen wird die Read 
' Position um 4096 Bytes verschoben...
Form1.Winsock2.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(1) Mod 4096 <> 0 Then
ReDim Variable(1 To LOF(1) Mod 4096) As Byte
Get 1, , Variable 'Die Read Position ist noch an der gleichen Stelle wie beim 
' letzten Aufruf der vorherigen Schleife
Form1.Winsock2.SendData Variable
 
End If
Close #1