Simple Find and Replace

[nmretd]

I want to do a simple find and replace but I cannot get this to work with variables using the Replace() Function:

sLine = "Wednesday 15/08/01"
sOldDate = Trim(Mid(sLine, 11, 8))
sNewDate = Date
sLine = Replace(sLine, sOldDate, sNewDate)

Can someone show me how I can get this to work ?

[Hack]

Try this:

Private Function ReplaceAll(SourceString As String, ReplaceThis As String, WithThis As String)
Dim Temp As Variant
Temp = Split(SourceString, ReplaceThis)
ReplaceAll = Join(Temp, WithThis)
End Function

'To call: ReplaceAll(txtSomeTextBox.Text, "OldString", "NewString")

[chrisjk]

I think this is what you're getting at:

Dim sLine As String
Dim sOldDate As String
Dim sNewDate As String
 
sLine = "Wednesday 15/08/01"
sOldDate = Trim(Mid(sLine, 1, Len(sLine)))
sNewDate = CStr(Format(Date, "dddd dd/mm/yy"))
sLine = Replace(sLine, sOldDate, sNewDate)
 
MsgBox sLine