If MMI.Menueleiste.EinstellungFenster.Kamera_Werte(Ma).Teachin = _
          MMI.Rezept(Ma, MMI.Rezept(Ma, SZ).Name.SortierzustandEintrag + _
          1).Teachin Then
        Else
            MMI.Menueleiste.EinstellungFenster.Kamera_Werte(Ma).Teachin = _
              MMI.Rezept(Ma, MMI.Rezept(Ma, SZ).Name.SortierzustandEintrag + _
              1).Teachin
            TeachinInfo(Ma) = MMI.Rezept(Ma, MMI.Rezept(Ma, _
            SZ).Name.SortierzustandEintrag + 1).Teachin & ".bti"
            Try
                File.Copy(MMI.TeachinDIRlocal & "\" & TeachinInfo(Ma), _
                  MMI.RemDir(Ma) & "\Teachin.bti", True)
            Catch ex As Exception
                MMI.Menueleiste.FehlerFenster.FehlerSetzen(5, True, Ma)
                MMI.DownloadOK(Ma) = False
                TeachDown = False
                Exit Sub
            End Try
            MMI.Menueleiste.ThreadUpdateKonfigurationIB.Sleep(3000)
            MMI.Menueleiste.FehlerFenster.FehlerSetzen(22, True, Ma)
            If TeachDown = False Then
                TeachDown = True
            End If
            MMI.Infobroker.Infobroker_SendExecution(Ma, _
              MMI.Infobroker.IB_Variablen.context, _
              MMI.Infobroker.IB_Variablen.nTeachin)
        End If

mfg
rt