Notes/Domino 4 and 5 Forum

I have a function that is supposed to append names. If I make one selection it works but if I choose more than one selection then it bombs out. Can anyone tell what I might be doing wrong from the code below?

Thank you in advance,
Donna

Select Case subTo

Case "Platform Team"
If Isarray(controlDoc.DocPlatformContact) Then
mailSend = copyNames(controlDoc.DocPlatformContact, mailSend)
End If
Case "Marketing"
If Isarray(controlDoc.DocMarketingContact) Then
mailSend = copyNames(controlDoc.DocMarketingContact, mailSend)
End If
Case "Regional"
If Isarray(controlDoc.DocRegionalContact) Then
mailSend = copyNames(controlDoc.DocRegionalContact, mailSend)
End If
Case "Modeling"
If Isarray(controlDoc.DocModelingContact) Then
mailSend = copyNames(controlDoc.DocModelingContact, mailSend)
End If
Case "Decision Sciences"
If Isarray(controlDoc.DocDSContact) Then
mailSend = copyNames(controlDoc.DocDSContact, mailSend)
End If
Case "Operations Team EXT"
If Isarray(controlDoc.DocAcxiomContact) Then
mailSend = copyNames(controlDoc.DocAcxiomContact, mailSend)
End If
Case "Operations Team INT"
If Isarray(controlDoc.DocIIMProdContact) Then
mailSend = copyNames(controlDoc.DocIIMProdContact, mailSend)
End If
Case "Tier 2"
If Isarray(controlDoc.DocTier2Contact) Then
mailSend = copyNames(controlDoc.DocTier2Contact, mailSend)
End If

End Select
appendNames = mailSend