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)
                MMI.Menueleiste.ThreadUpdateKonfigurationIB.Sleep(3000)
                MMI.Menueleiste.FehlerFenster.FehlerSetzen(22, True, Ma)
                If TeachDown = False Then
                    TeachDown = True
                    'MMI.Menueleiste.FehlerFenster.FehlerRuecksetzen(5, False, 
                    ' Ma)
                End If
                MMI.Infobroker.Infobroker_SendExecution(Ma, _
                  MMI.Infobroker.IB_Variablen.context, _
                  MMI.Infobroker.IB_Variablen.nTeachin)
            Catch ex As Exception
                MMI.Menueleiste.FehlerFenster.FehlerSetzen(5, True, Ma)
                MMI.DownloadOK(Ma) = False
                TeachDown = False
            End Try
        End If

mfg
rt