Lotus Notes email und Excel, Problem mit Array

Sub EmailSenden()
Dim NutzerNotes As Object
Dim Notes As Object
Dim MailDokument As Object
Dim TextInMail As String, Anhang As String
Dim Text As Object
Dim Receipient As Variant
Dim beg As Integer, last As Integer
Dim i As Byte
Dim vari
Dim var()
Const EMBED_ATTACHMENT = 1454
'----- Auslesen des Arrays--------
beg = 10
last = Sheets("NOTES").Cells(100, 6).End(xlUp).Row
If last < 11 Then last = 10
vari = (last - beg) + 1 'anzahl der arrayeinträge ermitteln
ReDim Preserve var(vari)
Receipient = ""
Dim x As Byte
For x = beg To last
var(x - 9) = Sheets("params").Cells(x, 6) ' array mit daten aus dem sheet füllen
Next
For i = 1 To last - beg
Receipient = Receipient & var(i) & ","
Next
Receipient = Left(Receipient, Len(Receipient) - 1) ' letztes Komma entfernen
'---- Erstellen der eMail---------
Set NutzerNotes = CreateObject("Notes.NotesSession")
Set Notes = NutzerNotes.GetDatabase("", "")
Call Notes.OPENMAIL
Set MailDokument = Notes.CREATEDOCUMENT
Call MailDokument.ReplaceItemValue("SendTo", Receipient)
Call MailDokument.ReplaceItemValue("Subject", "" & Date)
Set Text = MailDokument.CREATERICHTEXTITEM("Body")
TextInMail = "Bitte beachten Sie das" & vbCrLf & vbCrLf & vbCrLf & vbCrLf
Call Text.AppendText(TextInMail)
MailDokument.SAVEMESSAGEONSEND = True
Call MailDokument.SEND(False, Receipient)
Set NutzerNotes = Nothing
End Sub

Sub Notes_Telefonbuch_lesen()
' Zugriff auf Notes - Datenbanken mittels COM (Component Objekt Model) ab (Domino) Version 5.0.2b
' Verweis auf Lotus Domino Objects (domobj.tlb) unbedingt erforderlich
' Entsprechende dll findet sich unter..\notes\nlsxbe.dll
' Registrieren z.B. über Start --> Ausführen:  regsvr32 [pfad]\nlsxbe.dll
' Vorliegender code erstellt mittels "com together with domino redbook" - handbuch
'Dim DomSession As New NotesSession  'Session
Dim DomDir As NotesDatabase         'Datenbank
Dim DomView As NotesView            'Ansicht
Dim DomDoc As NotesDocument         'Dokument
Dim StrName As String
Dim i As Long
' zur Fehlerbehandlung
Dim StrTestDomSession As String
On Error GoTo ErrorHandler
' zum Testen ob die Notessession schon steht, wenn nicht-
' initialisiert der Errorhandler die Session (Passwortabfrage)
StrTestDomSession = DomSession.CommonUserName
Set DomDir = DomSession.GetDatabase("SERVER", "PFAD+DATENBANKNAME")
Set DomView = DomDir.GetView("ANSICHT")
Set DomDoc = DomView.GetFirstDocument
i = 1
While Not (DomDoc Is Nothing)
' Felder auslesen - Parameter "(0)" unbedingt erforderlich !
' bei meinen drei Beispieldatenfeldern handelt sich es um Telefonbuch- Felder
StrName = DomDoc.GetItemValue("lastname")(0) & " " _
& DomDoc.GetItemValue("firstname")(0) & " " _
& DomDoc.GetItemValue("shortname")(0)
' nächstes Dokument
Set DomDoc = DomView.GetNextDocument(DomDoc)
MsgBox StrName, vbInformation, "Datensatz Nr. " & i
i = i + 1
Wend
GoTo done
ErrorHandler:
If Err = ERR_NOTES_SESSION_NOT_INIT Then
DomSession.Initialize
Resume Next
Else
MsgBox "Laufzeitfehler Nr. " & Err & vbLf & Err.Description, vbCritical
End If
done:
End Sub