Help with coding

Can someone help me understand what this code is doing???



I don't understand the third line and I think that is what is confusing me.



Dim memoContent As String

memoContent = Me.Remarks1

If Nz(Me.BC1Chng1, "") <> 0 Then

Do While Not Me.Recordset.EOF

memoContent = Me.Remarks1

Me.Recordset.MoveNext

Me.Remarks1 = memoContent

Me.Repaint

Loop

Else

MsgBox "Already at last record"

End If

End Sub

Help with coding