Help with stop - start of a loop

Hi All

I have the following attached loop that runs through 300+ mil loops generated from 3 Lists of string.

District, inner & ending

Is there any way to save the current position from the "For each .. as string in .." and then load the position back in ? Just that I have an estimated run time of 500+ hours and would like to be able to resume from a stored position should I have to.

I am also opened to other ideas aswell :-)

Many Thanks
Steve

Dim District, Inner, Ending As New List(Of String)
 
        District = DistrictList()
        Inner = InnerList()
        Ending = EndingList()
 
        For Each d1 As String In District
            s1 = d1
            For Each i1 As String In Inner
                s2 = s1 & i1
                For Each e1 As String In Ending
                    s3 = s2 & " " & e1
 
                    While pauseLoop
                        System.Threading.Thread.Sleep(100)
                        Application.DoEvents()
                    End While
 
                    Application.DoEvents()
 
                Next
            Next
        Next

Select allOpen in new window