Public Class Form1
    Inherits System.Windows.Forms.Form
 
 
    Public Function WriteHexValue32Bit(ByVal lpOffset As Long, ByVal lpValue As _
      Int32)
        Dim FS As New FileStream("revo_kart.brsar", IO.FileMode.Open)
        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
 
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        With OpenFileDialog1
            .Filter = _
            "Excel-Mappen (*.brstm)|*.brstm"
            .FilterIndex = 1
            .Title = "Öffnen"
            .ShowDialog()
            If .ShowDialog() = DialogResult.OK Then
            End If
        End With
    End Sub
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        WriteHexValue32Bit(1020572, TextBox1.Text)
    End Sub
 
End Class

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e _
      As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = Offset
 
        Select Case ComboBox1.SelectedIndex
            Case 0
                Offset = "10"
            Case 1
                Offset = "20"
            Case 2
                Offset = "30"
            Case 3
                Offset = "40"
            Case 4
                Offset = "50"
        End Select
    End Sub