Public Class Form1
 
    Private Sub btnAuswahlProgramm_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles btnAuswahlProgramm.Click
        Dim saveAuswahl As String
 
        FolderBrowserDialog1.ShowDialog()
        saveAuswahl = FolderBrowserDialog1.SelectedPath
    End Sub
 
    Private Sub btnProgrammOpen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnProgrammOpen.Click
 
        'Hier soll die Variable wieder ausgelesen werden
 
    End Sub
End Class