With ws.Cells(3, 4)
            .Value = "Count Out:"
            .Font.Bold = True
        End With
 
        Dim datum As Integer = 4
        Dim Time As Integer = 4
        Dim CIn As Integer = 4
        Dim COut As Integer = 4
        Dim flag As Boolean = False
        Dim sYear As String = System.DateTime.Now.Year.ToString
        Dim sMonth As String = System.DateTime.Now.Month.ToString
        Dim sDay As String = System.DateTime.Now.Day.ToString
        datum = datum + 1
        Time = Time + 1
        CIn = CIn + 1
        COut = COut + 1
        Dim CameraIni As String = My.Computer.FileSystem.ReadAllText( _
          "C:\RR-Engineering\Export\Data\camera.ini")
        Dim lines() As String = CameraIni.Split(Environment.NewLine)
        Dim CountIn As String = lines(19).Substring(15)
        'Dim CountOut As String = lines(20).Substring(16)
        ws.Cells(CIn, 2).Value = CountIn
        ' ws.Cells(COut, 3).Value = CountOut
 
 
        Try
            wb.SaveAs(Datei, True)
        Catch fehler As Exception
            MsgBox(fehler.ToString)
        End Try
        wb.Close()
 
        ws = Nothing
        wb = Nothing
        xl.Quit()
        xl = Nothing