Code anpassen

Ein Problem das ich schon längere Zeit versuche zu bearbeiten ist das ich per DoppelKlick den Text aus der aktiven Zelle ab dem 6. Zeichen in der UF-ComboBox1 auswählen möchte. Mit kopieren des Textes in ComboBox funktioniert es leider nicht. Wie müsste der Code angepaßt werden um das Problem zu lösen?

Private Sub Userform_Initialize()
With Worksheets("Leistungsstamm")
ComboBox1.List = .Range(.Cells(2, 2), .Cells_(.UsedRange.Rows.Count, 2)).Value
End With
ComboBox1.Text = Mid$(ActiveCell, 7, Len(ActiveCell) - 6)
End Sub

vielen Dank für eure Hilfe Jens