VBA/Excel/Access/Word/File Path/Binary File

create temporary binary file test.bin

   <source lang="vb">

Option Explicit Private Sub CreateBinaryFile()

 Dim sq As Double, i
 Open Environ("temp") + "\test.bin" For Binary As #1
 For i = 1 To 100
   sq = Sqr(i)
   Put #1, , sq
 Next i
 Close #1

End Sub

</source>
   
  

open file, show first three entries in immediate window

   <source lang="vb">

Private Sub LoadBinaryFile()

 Dim dbl As Double, i
 Open Environ("temp") + "\test.bin" For Binary As #1
 Seek #1, 8 * 14 + 1
 For i = 1 To 3
   Get #1, , dbl
   Debug.Print dbl
 Next i
 Close

End Sub

</source>