E - Mail Adressen hintereinander hängen

Sub Mail_Durchsatzstatistik()
Dim c As Range, TEST
    If Uebersicht.optionbutton_teagliche_auswertung = True Then
            For Each c In Range("D2:D1000")
                If Not IsEmpty(c) Then
                    TEST.AddItem (c)
                        If Not IsEmpty(c + 1) Then
                            TEST.AddItem (";")
                        End If
                End If
            Next c
    End If
End Sub