[Visual Basic] Fehler

    Guten Tag,


    bin immer noch an meinen Visual Basic Programm.
    Nun habe ich es geschaft das die Datei ausgelesen, nun wollte ich nochmal eine Datei auslesen aber dies bringt ein Fehler auf.


    Fehler: Programm führt keine Befehle mehr aus.


    Code:


    Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim sPath As String = TextBox1.Text
    If IO.Directory.Exists(sPath) Then
    For Each sFile As String In IO.Directory.GetFiles(sPath, "samp.exe")
    If IO.Directory.Exists(sPath) Then
    For Each ssFile As String In IO.Directory.GetFiles(sPath, "s0beit.conf")
    MsgBox("AntiHack: S0beit wurde gefunden.")
    Next


    Else
    MsgBox("Es wurde kein S0beit gefunden!")
    End If
    Next


    Else
    MsgBox("Datei konnte nicht gefunden werden!")
    End If
    End Sub
    End Class


    Grüße,
    Phönix