when the below code is run, ALM is not getting launched and there is no error message getting displayed.
Could you please let me know if any changes are to be made to the below code:
Dim QCConnection As Object;
Set QCConnection= createObject ('TDApiOle80.TDConnection')
Dim sUsername, sPassword
Dim sProject, sDomain
sUsername=sheet1.Range(A1).Value
sPassword=sheet1.Range(B1).Value
sProject=sheet1.Range(C1).Value
sDomain=sheet1.Range(D1).Value
QCConnection.InitConnectionEx sheet1.Range(E1).Value
QCConnection.login sUsername,sPassword
QCConnection.connect sDomain,sProject