Excel file corrupted after uploading to SharePoint with VB.NET

Excel file corrupted after uploading (.xlsx file) to SharePoint with VB.NET, I got that error message while opening excel file after uploaded to SharePoint “Excel cannot open the file ‘Input.xlsx’ because the file format or file extension is not valid. Verify that the file has not been currented and that the file extension matches the format of the file”. Can you please share the VB.NET code to upload .xlsx file SharePoint.

Dim client As HttpClient = New HttpClient()
client.BaseAddress = New Uri("https://****.sharepoint.com/sites/ChinaBot/_api/web/GetFolderByServerRelativeUrl('FilderName')/Files/add(url='File.xlsx',overwrite=true)")
client.DefaultRequestHeaders.Accept.Clear()
client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"))
client.DefaultRequestHeaders.Add("binaryStringRequestBody", "true")
client.DefaultRequestHeaders.Add("authorization", "Bearer Access Token")
Dim request As MultipartFormDataContent = New MultipartFormDataContent()
request.Add(New StringContent("Bad"), "tags")
request.Add(New StringContent("true"), "displayreferencetext")
request.Add(New StringContent("0.63"), "similaritythreshold")
request.Add(New StreamContent(File.OpenRead("C:\SharePoint\P2015548 DT PMT.xlsx")), "file", (New FileInfo("C:\SharePoint\P2015548 DT PMT.xlsx").Name))
Dim response As HttpResponseMessage = client.PostAsync("", request).Result
Dim strm As Stream = response.Content.ReadAsStreamAsync.Result
Dim doc As Byte()
Dim ms As MemoryStream = New MemoryStream()
strm.CopyTo(ms)
doc = ms.ToArray()
File.WriteAllBytes("C:\RPA Files\rez.docx", doc)