VB6 - ошибка несоответствия типа аргумента ByRef - где это?

В соответствии с вашим предупреждением и сообщением о сбое вы обращаетесь к пользовательскому интерфейсу в фоновом потоке.
Убедитесь, что ваш код пользовательского интерфейса вызывается в основном потоке.

В случае фоновых потоков вы можете исправить это следующим образом:

DispatchQueue.main.async {
    /// your code here
}

В вашем коде я вижу, что вы устанавливаете себя в качестве делегата потока изображений в фоновой очереди. Это означает, что ваш переход также называется фоном. Исправьте это:

func metadataOutput(_ output: AVCaptureMetadataOutput, didOutput metadataObjects: [AVMetadataObject], from connection: AVCaptureConnection){
    captureSession.stopRunning()

    if let metadataObject = metadataObjects.first {
        guard let readableObject = metadataObject as? AVMetadataMachineReadableCodeObject else { return }
        guard let stringValue = readableObject.stringValue else { return }
        AudioServicesPlaySystemSound(SystemSoundID(kSystemSoundID_Vibrate))
        found(code: stringValue)
    }

    DispatchQueue.main.async {
        self.performSegue(withIdentifier: "toTimerView", sender: self)
    }
}