Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim inputDate As Variant
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim v As String
Dim tmpDate As Variant
Dim userName As String
Dim session As New NotesSession