Algo así te podría valer

    Dim workspace As New NotesUIWorkspace
    Dim view As NotesUIView
    Set view = workspace.CurrentView
    If Not view Is Nothing Then
        Messagebox "Estas en una vista"
    Else
        Messagebox "No estas en una vista"
    End If