Write Anweisung in IF-Schleife will nicht

Hallo VBA Freaks,
ich hänge vor einem mittelschwerem Problem:

Dieses Form erstellt zu jeder angehakten Checkbox eine Datei mit dem Checkboxnamen.
Wie bekomme ich nun die neu erstellten Dateien mit Text gefüllt?
Leider funktioniert der Write #1, "Inhalt" nicht.


Private Sub Uebergabe_Click()

Dim CoCb As Control
For Each CoCb In Me.Controls ' Schleife über alle Steuerelemente der UserForm
If TypeName(CoCb) = "CheckBox" Then ' Typ des Steuerelementes prüfen
If CoCb.Value = True Then _
Open "D:\Dateien\" & Mid(CoCb.Name, 5) For Output As #1
Write #1, "Inhalt" ' <<<<<<<<<<das geht leider nicht
Close #1
End If
Next
End Sub

Danke für jeden Lösungsansatz
Gruß
Erik