未find方法或数据成员

我运行我的代码时出现此错误。这是从这篇文章的延续：添加滚动条到标签

我第一次创build了一个userForm标签，从工作表中检索信息。我想添加一个滚动条，这样我可以查看标签中的列表，如果它比标签更长。我被告知尝试一个文本框。我从我的代码中取出了这一行：

reportDate.Caption = reportDate.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf

并复制它，只是在文本框后添加一个数字1，所以文本框的代码是：

 reportDate1.Caption = reportDate1.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf

这是错误的地方（post的标题）。

在这里输入图像说明

你有没有创build一个名为reportDate1的文本框对象，或者只是复制代码？

如果没有名为reportDate1对象，并且在模块的顶部没有variablesDim ed并且没有Option Explicit语句，那么reportDate1将是一个变体，它没有Caption方法或属性

附近有些东西…下面是一个简单的testing案例在发展模式和运行模式的屏幕截图。文本是一个任意的string，没有换行符。版本/操作系统可能是一个问题？我使用Windows Excel 2010。

在这里输入图像说明

你在表单上创build了一个名为reportDate1的对象吗？