VB 2008 Problem

Public Class Form1
    Public Filename As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Ofd As New System.Windows.Forms.OpenFileDialog
        Ofd.InitialDirectory = "C:\"
        If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Filename = Ofd.FileName

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim SevenZip As New System.Diagnostics.Process
        'Pfad zur 7z.exe
        SevenZip.StartInfo.FileName = "C://Programme/7-Zip/7z.exe"
        'Parameter für die 7z-Konsole
        SevenZip.StartInfo.Arguments = "e " & Filename & "-oc://mcmodtmp"

        SevenZip.Start()

        'Wartet bis 7-Zip fertig ist (=automat. geschlossen wurde)
        SevenZip.WaitForExit()

        'ExitCodes von 7-Zip
        Select Case SevenZip.ExitCode
            Case 0 : MessageBox.Show("7-Zip: Erfolg")
                'hier weitere Prozesse, z.B. Datei-Upload etc.
            Case 1 : MessageBox.Show("7-Zip: Warnung")
            Case 2 : MessageBox.Show("7-Zip: schwerer Fehler")
            Case 7 : MessageBox.Show("7-Zip: Command Line-Fehler")
            Case 8 : MessageBox.Show("7-Zip: Nicht genügend Speicher")
            Case 255 : MessageBox.Show("7-Zip: vom Benutzer abgebrochen")
        End Select
    End Sub
End Class