Dim repdb As New NotesDatabase( "", "" ) If repdb.OpenByReplicaID( "", "85256B61006EBC68" ) Then Msgbox "Local Replia found" Else Msgbox "Local Replia NOT found" End If