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