Private Sub btnCD2000Path_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCD2000Path.Click Dim strPath As String strPath = CPS.CD2000.CD2000Path MessageBox.Show("Copy-Discovery 2000 befindet sich in folgendem Verzeichnis:" & vbCrLf & strPath) End Sub