Fehler: "Sub oder Function nicht definiert"

Public Sub CmdAbbruch_Click()
Unload frmNoten
End Sub
Public Sub CmdUebernehmen_Click()
Dim Einzelnote(7 To 12) As Variant
Dim Durchschnittsnote As Integer
For i = 7 To 12
Einzelnote(i) = Me.Controls("ComboBox" & i).Value
Next i
MsgBox Fach(0)
'For i = 1 To 6
'        If Me.Controls("ComboBox" & i).Value = Fach(0) Then
'            MsgBox "Klappt"
'        End If
'Next i
Unload frmNoten
End Sub
Public Sub UserForm_Initialize()
Dim i As Integer
Dim n As Integer
Dim Fach() As Variant
Fach = Array("Fach1", "Fach2", "Fach3", "Fach4", "Fach5", "Fach6")
Dim Notenwert() As Variant
Notenwert = Array("1,0", "1,3", "1,7", "2,0", "2,3", "2,7", "3,0")
For i = 1 To 6
For n = 0 To 5
Me.Controls("ComboBox" & i).AddItem Fach(n)
Next n
Next i
For i = 7 To 12
For n = 0 To 6
Me.Controls("ComboBox" & i).AddItem Notenwert(n)
Next n
Next i
End Sub