Dim name As String = "C:\Documents\WordApplication3.doc"
Dim fileStream As System.IO.FileStream = Nothing
Dim bytes() As Byte = Nothing
Try
fileStream = New System.IO.FileStream( _
name, System.IO.FileMode.Open, System.IO.FileAccess.Read)
ReDim bytes(fileStream.Length)
fileStream.Read(bytes, 0, fileStream.Length)
Finally
If Not fileStream Is Nothing Then
fileStream.Close()
End If
End Try