How do I exit a “do while” statement

Question

Sub FindValue()

Dim firstAddress As String Dim Expense As String Dim rRange As Range Dim FirstrngFnd As Range Dim x As Integer Dim y As Integer Dim z As Integer

<