Private Sub CreateDomain() 'The following Visual Basic example creates a new domain. Dim sDomainName As String Dim sContactName As String Dim sContactEmail As String Dim sReply As String On Error GoTo err sDomainName = "MyNewDomain" sContactName = "" 'Generally not in use sContactEmail = "" 'Generally not in use sReply = m_SAClient.CreateDomain _ (sDomainName, sContactName, sContactEmail, 500) MsgBox sReply Exit Sub err: MsgBox "Program failed:" + err.Description End Sub