Const C_VIEW = "People"
 Const C_KEY  = "Marvin Martian/IT/SomeCompany"
 Const C_ITEM = "Fullname"

 Dim S As NotesSession
 Dim Db As NotesDatabase
 Dim View As NotesView
 Dim Doc As NotesDocument
 
 Set S = New NotesSession
 Set Db = S.CurrentDatabase
 Set View = Db.GetView( C_VIEW )
 Set Doc = View.GetDocumentByKey( C_KEY, True )

 If Doc.HasItem( C_ITEM ) Then
     Print C_ITEM & ": " & Doc.GetFirstItem( C_ITEM ).Text
 Else
     Print C_ITEM & " Doesn't exist!"
 End If