用于MouseUp事件的Excel VBA语法

我是新手，我有点挣扎。有人能帮我理解为什么这样做吗：

Private Sub ListBox1_Click()

    ActiveSheet.OLEObjects("TextBox3").Object.Text = ActiveSheet.OLEObjects("ListBox1").Object.Value

    ActiveSheet.OLEObjects("ListBox1").Object.Value = ""

End Sub

但这会在第一行出现“类型不匹配”错误吗

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    Button = 1
    Shift = 0

    ActiveSheet.OLEObjects("TextBox3").Object.Text = ActiveSheet.OLEObjects("ListBox1").Object.Value

    ActiveSheet.OLEObjects("ListBox1").Object.Value = ""

End Sub

提前谢谢。如果您对这些活动有任何介绍性的参考，我们将不胜感激。

打开“显式”选项，并尝试使用手册F1帮助，如