用户表单文本框未显示默认值

Question

我刚创建了一个VBA用户表单，其中文本框引用了一个单元格的默认值。但是在执行时用打开的空白文本框打开。仅当我单击文本框时才会显示值。同样在标签的情况下也是如此。

也可以在执行时在文本框中编辑默认值。

这是我的代码：

Private Sub TextBox1_Change()
TextBox1.Value = Range("A4").Value
End Sub

Private Sub Label1_Click()
Label1.Caption = Sheets("ESDU View").Range("D2").Value
End Sub