How do I save a Member to the root of a dimension

				Dim newMember As MemberInfo = Nothing
			     
				'Get the dimension parent member which will give us the dimension / relationship info need to create the member
				Dim parentMem As MemberInfo = BRApi.Finance.Metadata.GetMember(si, dimTypeId, parentName)
			     
			    If Not parentMem Is Nothing Then                                                                                                                                            
					'Control Switches
					Dim saveMember 			As Boolean = True 
					Dim saveProps 			As Boolean = True
					Dim saveDescs 			As Boolean = False
					Dim saveRelationship 	As Boolean = True
					Dim isNewMember 		As Boolean = True

					'Other parameters that we are not using but must be supplied
					Dim varProps 			As VaryingMemberProperties 		= Nothing
					Dim altDescList 		As List(Of MemberDescription) 	= Nothing
						'altDescList.Add
					
					'Member
					'Dim dimensionId As Integer
					Dim dimensionPk 		As New DimPk(BRApi.Finance.Dim.GetDim(si,dimensionName).DimPk)'(dimTypeId, parentMem.Member.DimId)
					Dim newMemPk 			As New MemberPk(dimTypeId, DimConstants.Unknown)
					Dim newMem 				As New Member(newMemPk, memberName, memberDesc, dimensionPk.DimId)

					'Relationship
					Dim relPk 				As New RelationshipPk(dimTypeId, parentMem.Member.MemberId, DimConstants.Unknown)
					Dim rel 				As New Relationship(relPk, newMem.DimId, RelationshipMovementType.InsertAsLastSibling, 1)
					Dim relInfo 			As New RelationshipInfo(rel, Nothing)
					Dim relPostionOpt 		As New RelationshipPositionOptions()                                                                                                                                      

					'Create the member and relationship
					Dim metaAdmin 			As New MetadataAdmin
					Dim newRelPK 			As RelationshipPk 
					newRelPK = metaAdmin.SaveMemberAndRelationshipInfo(si, dimensionPk, saveMember, newMem, saveProps, varProps, saveDescs, _
																		altDescList, saveRelationship, relInfo, relPostionOpt, isNewMember)
					                                                                     
					'Get the newly added member and return it
					If Not newRelPK Is Nothing Then
						newMember = BRApi.Finance.Metadata.GetMember(si, dimTypeId, newRelPK.ChildId)
					End If    
				End If

				Return newMember