Zugriff verweigert

Private Sub mobjListBox_Click()
'    With mobjListBox
'        mobjUserform.Label1.Caption = .Text
'        mobjUserform.Label2.Caption = .List(.ListIndex, 1)
'        'mobjListBox .TextBox1 = .List(.ListIndex, 1)
'    End With
'    mobjUserform.Show
End Sub

Private Sub mobjListBox_MouseMove(ByVal Button As _
Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Dim MyDataObject As DataObject
Dim i As Long
Dim Effect As Integer
With mobjListBox
If Button = 1 Then
For i = 0 To .ListCount - 1
If .Selected(i) Then
Set MyDataObject = New DataObject
MyDataObject.SetText .List(i)
Effect = MyDataObject.StartDrag
End If
Next
End If
End With
End Sub

Private Sub mobjListBox_BeforeDragOver(ByVal Cancel As _
MSForms.ReturnBoolean, ByVal Data As _
MSForms.DataObject, ByVal X As Single, _
ByVal Y As Single, ByVal DragState As Long, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Cancel = True
Effect = 1
End Sub

Private Sub mobjListBox_BeforeDropOrPaste(ByVal _
Cancel As MSForms.ReturnBoolean, _
ByVal Action As Long, ByVal Data As _
MSForms.DataObject, ByVal X As Single, _
ByVal Y As Single, ByVal Effect As _
MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
mobjListBox.AddItem Data.GetText
End Sub