Kenneth,
I tried the code and it does not work.


[quote=Kenneth Hobs]Please try not to copy all of another's post in your reply. In particular, the code part needs not be repeated.

Copy the code that follows and paste as detailed next.
[vba]Function LotusNotesUserName() As String
Dim Session As Object
Dim s As String, sLen As Long
Set Session = CreateObject("Notes.NotesSession")
s = Session.UserName
Set Session = Nothing
]