' Globale Variable
Private Shared strPath As String = Environment.SpecialFolder.MyComputer
 
    Public Property StrPathCont() As String
        Get
            Return strPath
        End Get
        Set(ByVal value As String)
            strPath = value
            If strPath = Environment.SpecialFolder.MyComputer.ToString Then
                BtnStart.Enabled = False
            ElseIf String.Compare(strPath, "", False) = 0 Then
                BtnStart.Enabled = False
            Else
                BtnStart.Enabled = True
            End If
        End Set
    End Property

' Startbutton deaktivieren
StrPathCont = ""

.SelectedPath = StrPathCont

PfadMitBackslash(StrPathCont)