Sub Click(Source As Button) Dim session As New NotesSession Dim user As String user = session.UserName End Sub
Sub Initialize Dim session As New NotesSession Dim user As String user = session.UserName End Sub