If ActiveDocument.OpenEncoding = ksoEncodingUTF7 Then MsgBox "This is a UTF7-encoded text file!"Else MsgBox "This is not a UTF7-encoded text file!"End If