VB6. Из .doc в .txt

        Private Sub Command1_Click()
        Dim temp As String
        temp = "путь & имя.doc"
        If Not Dir(temp, vbNormal) <> "" Then
           MsgBox "Документ не найден."
           Exit Sub
        End If
        On Error GoTo Notloaded 
            Set MyWord = GetObject (, "Word.Application")
        Notloaded:
            If Err.Number = 429 Then 
                Set MyWord = CreateObject("Word.Application")
            ElseIf Err.Number <> 0 Then 
                Screen.MousePointer = vbDefault
                    'Пользователь нажал на кнопку Cancel
                MyWord.Documents.Close SaveChanges:=wdDoNotSaveChanges
                Set MyWord = Nothing
                Screen.MousePointer = 0
                If Not Err.Number = 32755 Then
                    MsgBox Err.Description & vbCrLf & "error "
                End If
                Err.Clear
                Exit Sub
            End If
         MyWord.Documents.Open FileName:=temp
               MyWord.ActiveDocument.SaveAs FileName:="name.txt", FileFormat:=wdFormatText, _
                LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
                :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
                SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
                False
        End Sub