It seems to me your code could be reduced to:
Code:
Sub RTFtoDOC()
Dim FName As String
Dialogs(wdDialogFileOpen).Show
Application.ScreenUpdating = False
FName = Dir("*.rtf")
While (FName > "")
Application.Documents.Open FileName:=FName, ReadOnly:=True, AddToRecentFiles:=False
ActiveDocument.SaveAs FileName:=FName, FileFormat:=wdFormatDocument
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
FName = Dir()
Wend
Application.ScreenUpdating = True
End Sub
PS: When posting code, please use the code tags - inserted via the # symbol on the posting menu.