Option Explicit

Sub ReadFromFile()
Dim Arr1( 22330 ) As Byte, Arr2( 26 ) As Byte
Dim fileToOpen As Variant
Dim fileToWrite1 As Variant, fileToWrite2 As Variant
Dim fn As Integer, fn1 As Integer, fn2 As Integer
  fileToOpen = "прога.exe"
  fileToWrite1 = "прога.1"
  fileToWrite2 = "прога.2"
  Kill fileToWrite1: Kill fileToWrite2
  fn = FreeFile
  Open fileToOpen For Binary As fn
  fn1 = FreeFile
  Open fileToWrite1 For Binary As fn1
  fn2 = FreeFile
  Open fileToWrite2 For Binary As fn2
  Get fn,  3 , Arr1
  Put fn1, , Arr1
  Get fn,  22334 , Arr2
  Put fn2, , Arr2
  Close fn: Close fn1: Close fn2
End Sub