VBA codes not running after re-installed windows10 - excel

Question

I have already run these codes successfully more than 200 times as I download files on daily basis.
Also having another copies of same code in different drives as reference in case of any issue.
Last night I re-installed my Win10 and office 2019 pro plus both are updated to latest.
And now the codes are not running.
I am not a hard core programmer, not able to understand what's wrong with them. Do I need to install any reference library or .net framework or something else.
The codes stopped at
"Name oldFullName As newfullname"
2 files are there do be downloaded and renamed
The codes get 1st file successfully but, do not rename it so not going to 2nd loop to download 2nd file and to further rename that.
Public IsExit As Boolean
Global Path As String
Private Sub Download_AllZip()
Path = ThisWorkbook.Worksheets("Downloads").Range("C3").Value
Application.ScreenUpdating = FALSE
Application.EnableEvents = FALSE
Dim LR As Long
Dim Fileurl As String, Filename As String, y As String, z As String 'msg as string
Dim r As Long
LR = Sheets("Downloads").Range("C6").Row
For r = 5 To LR
Fileurl = Sheets("Downloads").Range("C" & r).Value
If InStr(1, Fileurl, ".zip") <> 0 Then
filepath = Path
End If
Dim Obj1 As Object
Set Obj1 = CreateObject("Microsoft.XMLHTTP")
Obj1.Open "GET", Fileurl, FALSE
Obj1.send
If Obj1.Status = 200 Then
Set Obj2 = CreateObject("ADODB.Stream")
Obj2.Open
Obj2.Type = 1
Obj2.Write Obj1.responseBody
Obj2.SaveToFile (filepath & getfilename(Fileurl)), 2 ' 1 = no overwrite, 2 = overwrite
Call UnzipFileRename(filepath & getfilename(Fileurl), filepath, Sheets("Downloads").Range("D" & r).Value)
Obj2.Close
y = (y & vbCr & Sheets("Downloads").Range("D" & r).Value & " = Downloaded & Converted To .CSV in " & filepath)
ThisWorkbook.Sheets("Downloads").Range("E" & r).Value = "Downloaded" '/STATUS
Else
z = (z & vbCr & Sheets("Downloads").Range("D" & r).Value & " = Failed To Download")
ThisWorkbook.Sheets("Downloads").Range("E" & r).Value = "Failed" '/STATUS
End If
Next r
End Sub
Function getfilename(filepath As String)
Dim v_string() As String
v_string = Split(filepath, "/")
getfilename = v_string(UBound(v_string))
End Function
Private Sub UnzipFileRename(zipFullName As Variant, unzipPath As Variant, newName As String)
Dim ShellApp As Object, oldFullName As String, newfullname As String, n As Variant
Set ShellApp = CreateObject("Shell.Application")
'/get file name
For Each n In ShellApp.Namespace(zipFullName).Items
a = a + 1
oldFullName = unzipPath & n.Name
newfullname = unzipPath & newName
If a = 1 Then Exit For
Next n
'/delete previous version to avoid any issues
DeleteFile oldFullName
DeleteFile newfullname
'/unzip the file
ShellApp.Namespace(unzipPath).CopyHere ShellApp.Namespace(zipFullName).Items
'/rename the file
Name oldFullName As newfullname
'/delete zip file
DeleteFile CStr(zipFullName)
End Sub
Private Sub DeleteFile(PathAndName As String)
On Error Resume Next
Kill PathAndName
On Error GoTo 0
End Sub