Probleme mit Objektvariable oder With-Blockvariabl

Private Sub UserForm_Activate()
Dim n
Dim arrFind()
With Worksheets("FV Orte").Range("a1:z50")
Set c = .Find(Ort, LookIn:=xlValues, SearchOrder:=xlByColumns)
If Not c Is Nothing Then
firstAddress = c.Address
Do
n = n + 1
ReDim Preserve arrFind(1 To 4, 1 To n)
arrFind(1, n) = .Cells(1, c.Column).Value
arrFind(2, n) = .Cells(2, c.Column).Value
arrFind(3, n) = .Cells(3, c.Column).Value & " Meter"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
End With
If n = 0 Then Exit Sub
With usrFV_Orte.lstFind
.ColumnCount = n
.List = arrFind
End With
Caption = "         Länge der FV-Orte des Orts " & Ort
End Sub