Issue with Script

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

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