求指点：vba中 如何用鼠标将单元格值拾趣到窗体的textbox中？

大家好，我想用鼠标将单元格值拾趣到窗体的textbox中，如上图所示。
窗体程序如下：
Sub 提取单元格()
完成1.Show 0
End Sub
textbox程序如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
完成1.TextBox1 = Target.Value
End Sub
“完成”命令按钮程序如下：
Private Sub 确定1_Click()
MsgBox "文字框里输入的内容是：" & TextBox1.Value
End Sub
当前我的问题是：用鼠标拾趣单元格后，TextBox中根本现实不出来。。。
哪位大神给指点一下？