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 ?