Suppressing Text after New-DistributionList

Function Loop([string]$Person)
{
    $People = @()
    while ($Person -ne "")
    {
        $temp=Get-msoluser -UserPrincipalName $Person -ErrorAction SilentlyContinue
        if ($temp) {$People+=$Person}
        else {Write-Host "Not a valid email address: $Person"}
        $Person = Read-Host " "
    }
    return $People
}
Function Create-VacationCalendar
{
    "Logging into Office 365"
    " "
    .\ConnectToOffice365.ps1
    " "

    $RoomMailbox = Read-Host "New vacation calendar name"
    $ApproversGroup = "SG-$RoomMailbox Approvers"
    $RegularGroup = "SG-$RoomMailbox"
    " "

    "Creating the two security groups for the calendar:  $ApproversGroup and $RegularGroup"
    " "

    "Enter the owners of the $ApproversGroup group (Press just the Enter key to finish)"
    $ApproverOwner = Read-Host " "
    $ApproverOwners = Loop $ApproverOwner
    " "

    Write-Host "Enter the internet address of the approvers for the calendar (Press just the Enter key to finish)"
    $Approver = Read-Host " "
    $Approvers = Loop $Approver
    " "

    "Enter the owners of the $RegularGroup group (Press just the Enter key to finish)"
    $UserOwner = Read-Host " "
    $UserOwners = Loop $UserOwner
    " "
    "Enter the people who will be accessing the calendar (Press just the Enter key to finish)"
    $User = Read-Host " "
    $Users = Loop $User
    " "

    Write-Host -NoNewline "Creating security group: $ApproversGroup..."
    New-DistributionGroup -Name $ApproversGroup -Type "Security" -ManagedBy $ApproverOwners -CopyOwnerToMember -Members $Approvers -PrimarySmtpAddress "$($ApproversGroup.Replace(' ','_'))@domain.com" | Out-Null
    Write-Host "Done."

    Write-host -NoNewline "Creating security group: SG-$RoomMailbox..."
    New-DistributionGroup -name "SG-$RoomMailbox" -Type "Security" -ManagedBy $UserOwners -CopyOwnerToMember -Members $Users -PrimarySmtpAddress "$($RegularGroup.Replace(' ','_'))@domain.com" | Out-Null
    Write-Host "Done."

    Write-Host -NoNewline "Creating Room Mailbox: $RoomMailbox..."
    New-Mailbox -name $RoomMailbox -Room -PrimarySmtpAddress "$($RoomMailbox.Replace(' ','_'))@harvardpilgrim.org"
    Write-Host "Done."

    Write-Host -NoNewline "Setting calendar options..."
    while (-not (Get-CalendarProcessing -Identity $RoomMailbox -ErrorAction SilentlyContinue)) {Write-host -NoNewline ".";Sleep 10}


    $AutomateProcessing = "AutoAccept"
    $AllowRecurringMeetings = $True
    $AllowConflicts = $True
    $MaximumDurationInMinutes = 0
    $ConflictPercentageAllowed = 100
    $MaximumConflictInstances = 10
    $BookingWindowInDays = 365
    $EnforceSchedulingHorizon = $False
    $AddOrganizerToSubject = $True
    $DeleteComments = $False
    $DeleteSubject = $False

    Set-CalendarProcessing -Identity $RoomMailbox `
        -AutomateProcessing $AutomateProcessing `
        -AllowRecurringMeetings $AllowRecurringMeetings `
        -AllowConflicts $AllowConflicts `
        -MaximumDurationInMinutes $MaximumDurationInMinutes `
        -ConflictPercentageAllowed $ConflictPercentageAllowed `
        -MaximumConflictInstances $MaximumConflictInstances `
        -BookingWindowInDays $BookingWindowInDays `
        -EnforceSchedulingHorizon $EnforceSchedulingHorizon `
        -AddOrganizerToSubject $AddOrganizerToSubject `
        -DeleteComments $DeleteComments `
        -DeleteSubject $DeleteSubject `
        -BookInPolicy $ApproversGroup `
        -ResourceDelegates $ApproversGroup | Out-Null
    Write-Host "Done."
}
Create-VacationCalendar

 Each time I run it, I try to format the output, but the info for using groups keeps messing the output up.