Public Function WriteHexValue32Bit(ByVal lpOffset As Long, ByVal lpValue As _
      Int32)
        Dim FS As New FileStream("revo_kart.brsar", FileMode.Open) <----Problem
        Dim BW As New BinaryWriter(FS)
        BW.BaseStream.Position = lpOffset
        Dim buffer As Byte() = BitConverter.GetBytes(lpValue)
        Array.Reverse(buffer)
        BW.BaseStream.Write(buffer, 0, 4)
        FS.Close()
        BW.Close()
        Return 1
    End Function