Saving List count and retrieving?

[devGOD]

  If Not Dir$((App.Path & "\" + strName)) = "" Then
  intListBoxCount = Int(GetFromINI("Saved Values", "ListBox_Count", (App.Path & "\" + strName)))
  For x = intListBoxCount To lstretri.ListCount - 1
  Else <-- ******************ERROR HERE!
  For x = 0 To lstretri.ListCount - 1
  End If
  
  lstretri.ListIndex = x
  txtCluburl.Text = lstretri.List(x)
  lblcurrent.Caption = "Current: " & lstretri.ListIndex

why do i keep getting a Else without IF error.