Textbox3更新到活动单元格

Question

我有textbox3的以下代码：

Private Sub TextBox3_Change()
NextFree = Range("d6:d" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
Range("d" & NextFree).Select
ActiveCell.Value = Me.TextBox3.Value

输出是这样的：
我小区d7
Ia cell d8
Iam cell d9
Iama细胞d10
 如果相同应该在单元格d7中，它应该输出为＆＃34; Iama＆＃34;。任何想法我都错了？