Dim req As New RetrieveOptionSetRequest() req.Name = "new_contactmethod" Dim resp As RetrieveOptionSetResponse = DirectCast(service.Execute(req), RetrieveOptionSetResponse) 'Access the metadata this way Dim osm As OptionSetMetadata = resp.OptionSetMetadata