
	Function readBinFile(ByVal bfilename As String)
		Dim fl As Long
		Dim binbyte() As Byte
		Dim binfilestr As String

		On Error GoTo errHandler

		Open bfilename For Binary Access Read As #1
		f1 = FileLen(bfilename)
		ReDim binbyte(f1)

		Get #1, , binbyte

		Close #1

		readBinFile = binbyte
		Exit Function

	errHandler:
		Exit Function

	End Function