单元格值到用户窗体文本框

Question

经过数小时的尝试来解决这个问题，我希望这里的人可以理顺我...

我试图根据输入到TextBox20中的行号将数据从Sheet1导入到UserForm中。

错误91：未设置对象变量或With块变量

用户表单代码段：

Private Sub CommandButton9_Click()
 Application.ScreenUpdating = False
      Dim SelectRow As Range
      Dim response As Integer
      Dim UpdateForm As UserForm
      Dim iRow As Integer
      Dim iAdd As String
      Dim ws As Worksheet
       iRow = Me.TextBox20.Value
       iAdd = .Cells(iRow, 1)

      Call Get_Row
       With UpdateForm
      .TextBox2.Text = .iAdd.Offset(iRow, 0).Value
      .TextBox3.Text = .iAdd.Offset(0, 1).Value
      .TextBox4.Text = .iAdd.Offset(0, 2).Value
      .ComboBox1.Text = .iAdd.Offset(0, 3).Value
      .TextBox5.Text = .iAdd.Offset(0, 4).Value
      .TextBox12.Text = .iAdd.Offset(0, 5).Value
      .TextBox13.Text = .iAdd.Offset(0, 6).Value
      .TextBox14.Text = .iAdd.Offset(0, 7).Value
      .TextBox7.Text = .iAdd.Offset(0, 8).Value
      .TextBox8.Text = .iAdd.Offset(0, 9).Value
      .TextBox9.Text = .iAdd.Offset(0, 10).Value
      .TextBox18.Text = .iAdd.Offset(0, 11).Value
       End With
  Application.ScreenUpdating = True
End Sub

模块代码：

Sub Get_Row()
 Dim SelectRow As Range
 Dim response As Integer
 Dim UpdateForm As UserForm
 Dim iRow As Object
 Dim iAdd As String
 Dim ws As Worksheet
        Set iRow = UpdateForm.TextBox20.Value
        Set iAdd = ws.Cells(iRow, 1)   
 End Sub