Чтение файла большого размера и сохранение его побайтно с другим именем - VB

Формулировка задачи:

Ищу другие варианты для чтения и сохранения файла большого размера. А в моем случае - передача файла по сети своей программой.

С большим размером файла LOF начинает ругаться, что в принципе логично. Есть другие варианты, можно читать кусками файл, но я еще не определился какой именно способ подойдет наилучше. Трудность в том, что программу тяжело отслеживать так как одна работает как сервер, а другая как клиент и умеет работать наоборот. На эксперименты уйдет день. Если есть практика, прошу помощи.

Private Sub Timer3_Timer()
  If PBGotovnistTransportSend = True Then Exit Sub
  
  Const BufferLength As Long = 65000
'''On Error Resume Next
  Dim Buffer As String
  If RegimRobWSk = 22 Then
     PBGotovnistTransportSend = True
     If Loc(78) + BufferLength > LOF(78) Then
       Buffer = String(LOF(78) - Loc(78), 0)
     Else
       Buffer = String(BufferLength, 0)
     End If
      Get #78, , Buffer
      Winsock3.SendData Buffer
      LblProc = Int((Loc(78) / LOF(78)) * 100)
      If Loc(78) >= LOF(78) Then
        Close #78
        LblProc = "ok"
        Timer3.Interval = 0
      End If
      PBGotovnistTransportSend = False
  End If
End Sub

Решение задачи: «Чтение файла большого размера и сохранение его побайтно с другим именем»

textual
                            Листинг программы 
                        
                            Static cicl As Long

'cicl = cicl + 1
'If cicl < 10 Then GoTo che Else cicl = 0