Выборка строки из диапазона ячеек и запись в textBox

Row = TextBox1.Value 
Right = 2 
Emp = 0 
Do 
Emp = IIf(Cells(Row, Right).Value Is Nothing, Emp + 1, 0) 
Loop While Emp < 20 
Right = Right - 20 
res = "" 
For Each Cells In Range(Cells(Row, 1), Cells(Row, Right)) 
If Cells.Value = "" Then res = res & IIf(Len(res), "", "|") & Cells.Value 
End If 
Next Cells 
TextBox2.Value = res

Do 
Emp = IIf(Cells(Row, Right).Value Is Nothing, Emp + 1, 0) 
Loop While Emp < 20

Private Sub TextBox2_Enter()
    Rw = TextBox1.Value
    R = 2
    Emp = 0
    Do
    R = R + 1
    Emp = IIf(Cells(Row, R).Value Is Nothing, Emp + 1, 0)
    Loop While Emp < 20
    R = R - 20
    res = ""
    For Each cell In Range(Cells(Rw, 1), Cells(Rw, R))
    If cell.Value Is Nothing Then res = res & IIf(Len(res), "", "|") & cell.Value
Next cell
TextBox2.Value = res
End Sub

Private Sub TextBox2_Enter()
    Rw = TextBox1.Value
    R = 2
    Emp = 0
    Do
    Emp = IIf(Cells(Rw, R).Value = "", Emp + 1, 0)
    R = R + 1
    Loop While Emp < 20
    R = R - 20
    res = ""
    For Each cell In Range(Cells(Rw, 1), Cells(Rw, R))
    If cell.Value = "" Then res = res & IIf(Len(res), "", "|") & cell.Value
Next cell
TextBox2.Value = res
End Sub