intet værdi fra Document.Class

Jeg har denne kode .. men hvad kan jeg gøre hvis oleDocument.Class ikke giver noget tilbage ? normalt giver den word.document eller noget i den stil

  Dim objDocument        As Object
Open (file & ".sfo") For Binary As #1
    oleDocument.ReadFromFile 1
   
    Close #1
    Set objDocument = oleDocument.object

oleDocument.Class