Public Sub rgApplication_Started()
Dim variable As String
Dim Pfad As String
Dim Pfad2 As String
Dim layCookie As rgLayer
Dim layoutNew As rgLayout
Dim mapTplt As rgMap
Dim sAreaName As String

Pfad2 = "C:\Programme\Regio50\Projects\"
Pfad = "C:\Dokumente und Einstellungen\dv520w\Desktop\Test.txt"
Open Pfad For Input As #1
Do While Not EOF(1)
Line Input #1, variable
    MsgBox (variable)
    Pfad2 = Pfad2 + variable
Loop
Close #1
MsgBox (Pfad2)
'project.Load (Pfad2)
'For i = 0 To layCookie.ObjectCount - 1
'ActiveMap.WorkLayer.Layer
project.InsertGeoArea
If ActiveMap Is Nothing Then
    MsgBox "Eckehard ich glaub die Russen sind da!"
    Exit Sub
End If
'rgApplication.Quit 'funktioniert!
End Sub