You could open it as a text document and then save it as a word document .

Private Sub Command1_Click()
'pass it the name of the text file and the filename you want it saved as
Call WordDoc("C:\myfile.txt", "C:\NewFile.doc")
End Sub

Public Function WordDoc(sFileName As String, sNewDoc As String) As String
'Open the text file into word and save it as a word doc behind the scenes
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open(sFileName)
objWord.Selection.WholeStory
objDoc.SaveAs sNewDoc, 0 'wdFormatDocument
objDoc.Close
objWord.Quit
'
'clear memory of the objects
Set objDoc = Nothing
Set objWord = Nothing
'remove this...
MsgBox "Mission Accomplished"
End Function