Dim fName As String = "C:\Users\shadow\Documents\ExpertsExchange\EmailContent.txt"
Dim oldString As String = My.Computer.FileSystem.ReadAllText(fName)
Dim findStr As String = "<body lang=""EN-US"" xml:lang=""EN-US"">"
Dim newString As String = Replace(oldString, findStr, findStr + vbCrLf + "newtext")
MsgBox(newString)
|