Dim qtApp   
Dim qtTest  
Dim qtResultsOpt   

Set qtApp = CreateObject("QuickTest.Application")   
qtApp.Launch   
qtApp.Visible = True   
qtApp.Open "C:/QuickTest Professional/tests/test1/test1.usr", True  

Set qtTest = qtApp.Test   
qtTest.Settings.Run.OnError = "NextStep"   
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")   
qtResultsOpt.ResultsLocation = "C:/QuickTest Professional/tests/test1/"   
qtTest.Run  

Set qtResultsOpt = Nothing   
Set qtTest = Nothing   
Set qtApp = Nothing