Error reading range

[AlexanderBB]

Look = xlComments
SearchPart = xlPart
rCol= "C2:C58"
Set Found = Range(rCol).Find(What:=TextBox1.Text, lookIn:=Look, Lookat:=SearchPart)
If Not Found Is Nothing Then
    Set FirstFound = Found
    Do
        Debug.Print Found, Found.Address
        Set Found = Range(rCol).FindNext(After:=Found)
    Loop Until FirstFound.Address = Found.Address
End If

The last address it prints is C59. That's one more than the range should have and I get error
Run-time error '1004':
Unable to get the FindNext property of the Range class

But if rCol is "C:C" there is no error.
Is how I'm defining the rows or range wrong?