使用用户表单文本框填充单元格值

Question

用户填写一个用户表单，其中包含他们想要替换的值（a，34）以及他们想要用（a，35）替换它的内容。
如果（a，34）中的vlookup的输出是来自用户表单的值，我希望从用户表单填充为（a，35）分配的值。无论何时我运行它，我都会得到一个＆＃34;运行时错误＆＃39; 13＆＃39;：类型不匹配＆＃34;

Dim a As Long

a = 5

Range("A5").Activate

Do While Cells(a, 1).Value <> ""

    If Worksheets("PriceMatch").Cells(a, 34).Value = CurrEx.Text Then

        Worksheets("PriceMatch").Cells(a, 35).ClearContents
        Worksheets("PriceMatch").Cells(a, 35).Value = NewEx.Text

    End If

a = a + 1

Loop
a = a + 1

由于