Module CheckWord {
      Declare Alfa "WORD.APPLICATION"
      Declare Alfa Nothing
      Print Type$(Alfa)="Nothing"
      Try ok {
            Declare Alfa "WORD.APPLICATION"
            \\ we can't declare again Alfa

      }
      If Not Ok Then Print Error$  ' return Bad Object declaration
}
CheckWord