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