This function seems to errorneously call AppendNotificationHistory for Explicit name (row 150).
An easy fix would be 
    Case "2" 'Explicit Name<br/>
        Dim nn As New notesname (RoleDoc.a_Formula(0))<br/>
        SendTo.appendToTextList nn.Canonical<br/>
        Dim nnArr() As String<br/>
        Redim nnArr(0)<br/>
        nnArr(0) = nn.Canonical<br/>
        Call AppendNotificationHistory (nnArr, NotifyDoc, RoleDoc) 'First param is ARRAY not a string