Issue with Script

Question

Hi Team,
I am using this script for monitoring VPN account expiration date. Please check any errors at date function.
Every this is working fine but while getting alerts i am getting END Date as below: It should be DD/MM/YYY Format
End date
41665
Functions*********************************************************************************
Function ReadExcel(strFileName,strSheetName)
    Set objExcelConn = CreateObject("ADODB.Connection")
    objExcelConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFileName & ";Extended Properties=Excel 5.0;Persist Security Info=False"
    Set objExcelRS = objExcelConn.Execute("SELECT * FROM [" & strSheetName & "$]")
    For iColumnNumber = 0 to objExcelRS.fields.Count-1
        If iColumnNumber = 0 Then
            sColumnNames = objExcelRS.fields(iColumnNumber).Name
        Else
            sColumnNames = sColumnNames & "~" & objExcelRS.fields(iColumnNumber).Name
        End If
    Next
    firstCol = true
    Do While Not objExcelRS.EOF
        If (objExcelRS.Fields.Item("End Date") = Date+2) or (objExcelRS.Fields.Item("End Date") = Date)  Then
            For Each fld In objExcelRS.Fields
                If firstCol Then
                dim abc
                'abc= objExcelRS.Cells(sRowValue,8)
                    fldCat = fldCat & fld
                    firstCol = false
                    'set uid=objExcelRS.Fields.Item("User ID")
                Else
                    fldCat = fldCat & ";" & fld
                End If
            Next
            fldCat = fldCat & "#"
        End If
        objExcelRS.MoveNext
    Loop
    ReadExcel = Replace(fldCat,"#;","#")    
End Function

Answer 1

There us no way to tell what is happening.  The script does not make much sense.
Ask the person who wrote it to help you. The script has noting to do with VPNs and nothing to do with dates.  It appears to just read all of an excel spreadsheet into a single string.
¯\_(ツ)_/¯