sub nicht definiert

Private Sub ComboBox1_Change()
userform1.show
box_füllen
EndSub

Private Sub box_füllen()
'comboboxen mit namen füllen
For i = 6 To 36
With ComboBox1
.AddItem Cells(i, 2).Value
End With
Next i
End Sub


wenn ich den commandbutton klicke springt er  zum sub


Private Sub box_füllen()
wenn ich den code box_füllen aber in ein modul schreibe geht das nicht
dann kommt sub nicht definiert
ich kapiere eben das zusammenspiel nicht
kann mir das jemand erklären oder ev nen link nennen wo das nachlesen kann
ich weiss grundlagenwissen aber ich dinde einfach den weg nicht
danke im voraus
gruss roland_k