Something like this:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oDialog As Office.FileDialog
Dim strFileName
Dim oDoc As Document
Set oDialog = Application.FileDialog(msoFileDialogFilePicker)
With oDialog
.AllowMultiSelect = False
.Title = "Select the file to convert"
.Filters.Add "Word", "*.doc*"
.Filters.Add "All", "*.*"
If .Show Then strFileName = .SelectedItems(1)
Set oDoc = Documents.Open(strFileName, , , False, , , , , , , , False)
oDoc.SaveAs2 FileName:="Some File Name.rtf", FileFormat:=wdFormatRTF
oDoc.Close wdSaveChanges
End With
lbl_Exit:
Set oFD = Nothing: oDoc = Nothing
Exit Sub
End Sub