Imports System.IO
Module Module1
Sub Main()
Dim arr() As Integer = {3, 5, 87, 12, 982, 99}
Using br As BinaryWriter = New BinaryWriter(File.Open("d:\data.bin", FileMode.Create))
For Each n As Integer In arr
br.Write(n)
Next
End Using
End Sub
End Module
' run:
'
'