VB Launcher programmieren

If OpenFileDialog.ShowDialog() = DialogResult.OK Then
    Call MessageBox.Show(OpenFileDialog.FileName)
Else
    Call MessageBox.Show("Abbrechen wurde geklickt")
End If

Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Text.RegularExpressions

Public Class autologin


    Function EmailCheck(ByVal emailAddress As String) As Boolean


        Dim pattern As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
        Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)


        If emailAddressMatch.Success Then
            Return True
        Else
            Return False
        End If

    End Function


    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyEmail As String = email.Text
        If EmailCheck(MyEmail) = True Then
            antwort.Text = "Daten akzeptiert"
        Else
            antwort.Visible = True
            antwort.Text = "Falscher Accountname"
            Button1.Enabled = False
            Button4.Enabled = False
            passwort.Text = vbNullString
        End If

    End Sub

    Private Sub Link_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles Link.LinkClicked
        Process.Start("http://www.xxlynusxx.de")
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub

    Private Sub email_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email.TextChanged

    End Sub

    Private Sub passwort_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles passwort.TextChanged
        Button1.Enabled = passwort.Text.Length > 7
        Button4.Enabled = passwort.Text.Length > 7
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Button1.Visible = False
            Button4.Visible = True

        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim MyEmail As String = email.Text
        If EmailCheck(MyEmail) = True Then
            antwort.Text = "Daten akzeptiert"
        Else
            antwort.Visible = True
            antwort.Text = "Falsche Daten"
            Button1.Enabled = False
            Button4.Enabled = False
            passwort.Text = vbNullString
        End If
        If File.Exists("D:\benutzer.txt") Then

        End If
    End Sub

    Private Sub speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles speichern.Click
        System.IO.File.WriteAllText("c:\benutzer.txt", pfadbox.Text)
        If File.Exists("c:\benutzer.txt") Then
            antwort.Visible = True
            antwort.Text = "Pfad gespeichert"
            speichern.Enabled = False

        End If
    End Sub


    Private Sub suchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles suchen.Click
        Dim ofd As New OpenFileDialog
        ofd.Filter = "Executables |*.exe"
        ofd.InitialDirectory = "c:"
        ofd.Multiselect = False
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            pfadbox.Text = ofd.FileName
        Else
            pfadbox.Text = ("c:\")
        End If
    End Sub

End Class

private static String pfad="Angabe deines Pfades";