Test cases to ALM using VBA

Hi All, 

I am working on a macro to upload the test cases from excel to ALM using VBA scripting. 

I got connected to the ALM using the below code

Set QCConnection = CreateObject("TDApiOle80.TDConnection")
Dim sUserName, sPassword
sUserName = "user name" '-- change me
sPassword = "" '-- change me
QCConnection.InitConnectionEx "ALM bin link" '-- change me
QCConnection.Login sUserName, sPassword

 but unable to proceed further. please help me out.