Dropdown

ich habe in einer script sammlung ein vba script gefunden, das daten in meine combobox einliest und nach auswahl wieder den wert in eine zelle ausgibt. das script sieht folgender maßen aus
ClassModule: frmComboDemo

Private Sub UserForm_Initialize()
Dim rng As Range
For Each rng In Range("A1:A5").Cells
cboListe.List = Range("A1").CurrentRegion.Columns(1).Value
Next rng
cboListe.ListIndex = 0
End Sub

Private Sub cboListe_Change()
Cells(1, 2) = cboListe.Value
End Sub

Private Sub cmdWeiter_Click()
Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
frmComboDemo.Show
End Sub

bei mir erscheint immer eine fehlermeldung.

INVALID OUTSIDE PROCEDURE

Was mache ich falsch.

Danke
Matze