help me in the code !!

[mot1639]

what i need is that

 For fI1 = 1 To 31
            If xlsheet1.Cells(fI1, 1) = "" Then
         xl.ActiveWorkbook.Close False, CStr(App.Path & "\12.xls")
            Else
                cl = xlsheet1.Cells(fI1, 1)
                cl1 = 0
                For fI = 1 To 31
                    If xlsheet.Cells(fI, 1) = cl Then
                        cl1 = cl1 & fI & ","
                        Text1(0).Text = cl1
                    Else
                         Resume Next (her I need to resume FI FOR loop again to continue FI until 31  )
                    End If
            End If
        Next fI1 (her I need to Resume FI1 LOOP again until when there are no Text  )