Got it... The below code works just fine...
For i = 1 To QCConnection.GetAllVisibleProjectDescriptors.Count
If QCConnection.GetAllVisibleProjectDescriptors.Item(i).DomainName = "Your Domain" Then
Debug.Print QCConnection.GetAllVisibleProjectDescriptors.Item(i).Name
End If
Next