[RESOLVED] About a single instance of a For Next loop

[ThEiMp]

I'm working on something that looks like this:

Option Explicit
'
Dim PauseTime, Start, Finish, TotalTime
Dim strBuff As String
Dim m_Marker As Byte
Static OneTime As Boolean
Dim a As Integer
'

Public Property Get Marker() As String
On Error Resume Next

    m_Marker = m_Marker
End Property
Public Property Let Marker(ByVal New_Marker As String)
On Error Resume Next

    m_Marker = New_Marker
    PropertyChanged "Marker"
End Property
Private Sub UserControl_Initialize()
On Error Resume Next

1   If OneTime = False Then
        For a = 1 To 1
            If a = 0 Then
                a = 0
                a = a + 1
    
                PauseTime = 6
                Start = Timer
                Do While Timer < Start + PauseTime
                DoEvents
                Loop
                Finish = Timer
                TotalTime = Finish - Start
                If TotalTime = 0 Then GoTo 2
    
2               strBuff = StrConv(LoadResData("EP" & a, "VIDEO"), vbUnicode)
                    Open "C:\Temp\zVideo-1234567890.mkv" For Output As #1
                        Print #1, strBuff
                    Close #1
    
                PauseTime = 6
                Start = Timer
                Do While Timer < Start + PauseTime
                DoEvents
                Loop
                Finish = Timer
                TotalTime = Finish - Start
                If TotalTime = 0 Then GoTo 3
        
3               If a = 11 then m_Marker = "B"
        
                strBuff = ""
                OneTime = True
            Else
                Exit Sub
            End If
        Next a
    Else
        Exit Sub
    End If
End Sub
Private Sub UserControl_Resize()
On Error Resume Next

    With UserControl
        .Height = 330
        .Width = 435
    End With
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
On Error Resume Next

    With PropBag
        m_Marker = .ReadProperty("Marker", "")
    End With
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
On Error Resume Next

    With PropBag
        Call .WriteProperty("Marker", m_Marker, "")
    End With
End Sub