问每次我尝试使用GOTO语句重复一个循环时，我的宏都无法编译

EN

Sub buses()
    test.Caption = Day
    Dim mytime As String 'intiger showing current time
    mytime = "string" ' testing perpus only

    Dim counter As Integer 'intiger value for counter
    counter = 1 'counter set at 0

    Dim record As Integer 'intiger value for record
    Jump

    Do While counter < 20 'repeat if statment untill counter reaches 20
    counter = counter + 1 ' upon repeating counter has increased by 1

    If mytime = CStr(ThisWorkbook.Sheets("mon A").Range("A" & counter).Value) Then
    'if current time = a time of due to arive bus then

    record = counter 'record value and counter value are the same

        V1F1.Caption = CStr(ThisWorkbook.Sheets(Day).Range("A" & record).Value) 'display record information on screen
        V1F2.Caption = CStr(ThisWorkbook.Sheets(Day).Range("B" & record).Value)
        V1F3.Caption = CStr(ThisWorkbook.Sheets(Day).Range("C" & record).Value)

    record = record + 1

        V2F1.Caption = CStr(ThisWorkbook.Sheets(Day).Range("A" & record).Value) 'display record information on screen
        V2F2.Caption = CStr(ThisWorkbook.Sheets(Day).Range("B" & record).Value)
        V2F3.Caption = CStr(ThisWorkbook.Sheets(Day).Range("C" & record).Value)

    record = record + 1

        V3F1.Caption = CStr(ThisWorkbook.Sheets(Day).Range("A" & record).Value) 'display record information on screen
        V3F2.Caption = CStr(ThisWorkbook.Sheets(Day).Range("B" & record).Value)
        V3F3.Caption = CStr(ThisWorkbook.Sheets(Day).Range("C" & record).Value)

        Exit Do  'break do

    End If 'end if statment

    Application.Wait DateAdd("s", 1, Now) 'wait 1 second

    Loop ' loop as a result of if stament not being executed

    GoTo Jump: 'repeat Do while

End Sub