try-goto-retry.vb

Module Program
    Sub Main()

        Dim retryCount = 0
        Try
Retry:
            ' IO call.
        Catch ex As IO.IOException When retryCount < 3
            retryCount += 1
            GoTo Retry
        End Try

    End Sub
End Module