Need help to upload txt File into Target using rest api VBA

Question

Sub UP()

Dim xmlhttp As Object, response As String, SendString As String, filePath As String, file As String, username As String, password As String, url As String