Hi Ashray
Check if the following works for you:
Sub File_Upload()
Dim EPM As New FPMXLClient.EPMAddInAutomation
Dim Team As String
Dim SFolder As String
Dim FilePath(0) As String
Team = "Your Team ID"
SFolder = "Your SubFolder"
FilePath(0) = "Your File Path"
EPM.DataManagerFilesUpload Team, SFolder, FilePath
End Sub