write error message in txt file if error update each row of data in dbf file

If triallicense = "Demo" Then
            
            File_dbf = "C:\ddd" & Companydbf & "\paytran.dbf"
           
            Dim ConnectionString As String = String.Empty, sCommand As String = String.Empty
            Dim rCnt As Integer = 0, Empno As String, Otvalue As Integer = 0, retVal As Integer = 0, totalhrs As Integer = 0
            Dim xlApp As Excel.Application = Nothing, xlWorkBook As Excel.Workbook = Nothing, xlWorkSheet As Excel.Worksheet = Nothing, xlRange As Excel.Range = Nothing
            Dim latehr As Double, earlyhr As Double, norOT As Double, holOT As Double, otherOT As Double
            Dim attend As Double, absent As Double, mc As Double
            
            Dim dBaseConnection As OleDb.OleDbConnection = Nothing, dBaseCommand As OleDb.OleDbCommand = Nothing
            Try
                
                ConnectionString = "Provider=vfpoledb;Data Source=" & IO.Path.GetDirectoryName(File_dbf) & ";Collating Sequence=machine;"
                dBaseConnection = New OleDb.OleDbConnection(ConnectionString)
                dBaseConnection.Open()

                xlApp = New Excel.Application
                
                xlWorkBook = xlApp.Workbooks.Open(xlsName)
                xlWorkSheet = xlWorkBook.Worksheets("sheet1")
                xlRange = xlWorkSheet.UsedRange



                For rCnt = 3 To 4


                    Empno = xlRange.Cells(rCnt, 1).Value
                    totalhrs = xlRange.Cells(rCnt, 3).Value 'workhr
                    latehr = xlRange.Cells(rCnt, 4).Value 'latehr
                    earlyhr = xlRange.Cells(rCnt, 5).Value 'earlyhr
                    norOT = xlRange.Cells(rCnt, 6).Value 'nor OT
                    holOT = xlRange.Cells(rCnt, 7).Value 'hol ot
                    otherOT = xlRange.Cells(rCnt, 8).Value 'other ot
                    attend = xlRange.Cells(rCnt, 9).Value 'attendace
                    absent = xlRange.Cells(rCnt, 10).Value 'absent
                    mc = xlRange.Cells(rCnt, 11).Value 'leave

                    sCommand = "UPDATE paytran.dbf SET paytran.workhr = " & totalhrs & ", paytran.latehr = " & latehr & ", paytran.earlyhr = " & earlyhr & ", paytran.ot1 = " & norOT & ",  paytran.ot2 = " & holOT & ",  paytran.ot3 = " & otherOT & ", paytran.dw = " & attend & ", paytran.ab = " & absent & ", paytran.mc = " & mc & " , paytran.payyes = 'Y' WHERE paytran.empno == '" & Empno & "'"
                    dBaseCommand = New OleDbCommand(sCommand, dBaseConnection)

                    Try
                        retVal = dBaseCommand.ExecuteNonQuery()

                    Catch ex As Exception
                        'write_txt("Error", ex.Message.ToString()) 'here my catch block that write the file..
                    End Try
                Next rCnt

                'MsgBox("Data Updated!!")
            xlWorkBook.Close()
            xlApp.Quit()
            dBaseConnection.Close()


            Catch ex As System.InvalidCastException
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error...")

            Catch ex As OleDb.OleDbException
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error...")

            Catch ex As System.NullReferenceException
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error...")

            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error...")

            Finally
                
                releaseObject(xlApp)
                releaseObject(xlWorkBook)
                releaseObject(xlWorkSheet)
            End Try
End If