Private Sub ActivateProject(sDomainName$, sProjectName$) 'The following Visual Basic example activates the project. Dim sReply As String On Error GoTo err sReply = m_SAClient.ActivateProject _ (sDomainName, sProjectName) Debug.Print "Activate Project" & vbCrLf & sReply & vbCrLf Exit Sub err: MsgBox "Program failed:" + err.Description End Sub