lcCassName = "" For Idx = 1 To oWordApp.FileConverters.Count If oWordApp.FileConverters( idx).FormatName = "WordStar 3.3 - 7.0" lcClassName = oWordApp.FileConverters( idx).ClassName Exit EndIf Next If Empty( m.lcClassName) && you do not have "WordStar 3.3 - 7.0" converter installed EndIf ... myformat = oWordApp.FileConverters( m.lcClassName).OpenFormat ...With best regards,