Lotus Script выгрузка в excel

Приветсвую форумчани :

Есть скрипт не много доработал

Sub Click(Source As Button)
Dim ViewString As String
Dim session As NotesSession
Dim db As New NotesDatabase("db32/EastLine","visatimecontrol.nsf")
Dim v As NotesView
Dim docX As NotesDocument
Dim row As Double
Dim xl As Variant
Dim xlWbk As Variant
Set session = New notessession
' Set db=session.CurrentDatabase

ViewString="AllViolations"
Set v=db.GetView(ViewString)

' Создадим объект Excel
Set xl=CreateObject("Excel.Application")
' Создадим книгу Excel
Set xlWbk=xl.Workbooks.Add
'Работаем с Лист1(Sheet1), активным по умолчанию

'вывод Excel

'Вывод названия выгрузки
xlWbk.ActiveSheet.Cells(2, 1).RowHeight=30
xlWbk.ActiveSheet.Range("A2").HorizontalAlignment = -4108
xlWbk.ActiveSheet.Cells(2, 1)="Отчет о статусах документов"
xlWbk.ActiveSheet.Range("A2:H2").Merge

row=5

'встаем на первый документ из вьюхи
Set docX=v.GetFirstDocument

'переходим на строчку ниже для вывода данных
row=row+1
xl.Visible=True
'Пробегаем все документы из вью
While Not docX Is Nothing

'Вывод информации в Excel

'Формат ячейки - текстовый, чтобы номера можно было отображать вида 0001
' xlWbk.ActiveSheet.Cells(row, 1).Value=docx.GetItemValue("InternetAddress")(0)

'Номер п/п
If docx.GetItemValue("Status")(0) = "3" Then
xlWbk.ActiveSheet.Cells(row, 2).NumberFormat="@"
xlWbk.ActiveSheet.Cells(row, 5) =docx.GetItemValue("DocNumber")(0)
xlWbk.ActiveSheet.Cells(row, 3) =docx.GetItemValue("EventType")(0)
xlWbk.ActiveSheet.Cells(row, 4) =docx.GetItemValue("ViolationDate")(0)
xlWbk.ActiveSheet.Cells(row, 2) =docx.GetItemValue("PersonId")(0)
xlWbk.ActiveSheet.Cells(row, 6) =docx.GetItemValue("LastName")(0)
xlWbk.ActiveSheet.Cells(row, 7) =docx.GetItemValue("FirstName")(0)
xlWbk.ActiveSheet.Cells(row, 8) =docx.GetItemValue("Status")(0)
xlWbk.ActiveSheet.Cells(row, 9) =docx.GetItemValue("MiddleName")(0)
xlWbk.ActiveSheet.Cells(row, 10) =docx.GetItemValue("LnName")(0)
xlWbk.ActiveSheet.Cells(row, 11) =docx.GetItemValue("ReasonViolation")(0)
xlWbk.ActiveSheet.Cells(row, 12) =docx.GetItemValue("RegNumber")(0)
xlWbk.ActiveSheet.Cells(row, 13) =docx.GetItemValue("Comment")(0)
row=row + 1
End If
'Переходим к новому документу
Set docX=v.GetNextDocument(docX)
'Выводим счетчик, чтобы точно понять когда зависли и скоро ли overflow
Print row
Wend

'Если нужно выровнять столбец автоматически по ширине, то
xlWbk.ActiveSheet.Columns(1).AutoFit
xlWbk.ActiveSheet.Columns(2).AutoFit
xlWbk.ActiveSheet.Columns(3).AutoFit
End Sub

ТАкой вопрос как мне или куда дописать условие для поля ViolationDate чтобы можно было задать дату к примеру за 01.08.2016 по 31.08.2016.
Сам особо не силен в написании скриптов