Sub Click(Source As Button)
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Dim handle As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Set object = rtitem.GetEmbeddedObject( "Eben" )
If Not ( object Is Nothing ) Then
Set handle = object.Activate( True )
End If
End If
End Sub