Filestring = "notepad.exe " & myfile
Response = MsgBox("Data File Created" & Chr$(13) & Chr$(10) & _
"File = " & myfile & Chr$(13) & Chr$(10) & _
"Would you like to edit the file now?", vbYesNo, "ABC, Inc.")
If Response = vbYes Then
RunIt = Shell(Filestring, 1)
End If