I got the code to find and replace within an open text file.
------------------

Code:
Private Sub cmdFile_Click()
  Dim strTemp As String
  
  txtFile = ""
  dlg.FileName = "*.*"
  dlg.ShowOpen
  If Dir(dlg.FileName) <> "" Then
    Open dlg.FileName For Input As 1
    While Not EOF(1)
      Line Input #1, strTemp
      txtFile
...