I need a program to do the following:
1. open a file in in notepad (in the current folder, or better yet it can get my input as to where it's located.)
2. find the words "0test" in the file and replace it with the filename,
A. Except for the .txt at the end,
example if the filename is 112233.txt,
I want to find 0test and replace it with 112233
3. save the file

I've got a small start with help from this thread:
http://www.vbaexpress.com/forum/showthread.php?t=13737

all I did with this code is to cut of the cell link at the end

[vba]
Sub MikeTextFileExample()
Dim vFF As Long, vFile As String, tempStr As String

'output filename, we can choose this programmatically if desired
vFile = "C:\your file name.txt"

'get a string to add to the file, just for this example
tempStr = InputBox("Please enter string to add to file", "Enter text")

'get an unused file number (for vba to refer to it)
vFF = FreeFile

'open the file so we can write to it
Open vFile For Append As #vFF

'add the line to the file
Print #vFF, tempStr

'close the reference to the file
Close #vFF
End Sub
[/vba]

In my case I need to change this to get the file name in stead of using an input box:
[vba]
'get a string to add to the file, just for this example
tempStr = InputBox("Please enter string to add to file", "Enter text")

[/vba]

Any help is appreciated,

Thanks,
Rolly