Public Function Replace(oldstring, newletter, oldletter) As String<br>Dim i As Integer<br>i = 1<br><br>Do While InStr(i, oldstring, oldletter, vbTextCompare) <> 0<br>Replace = Replace & Mid(oldstring, i, InStr(i, oldstring, oldletter, vbTextCompare) - i) _<br>& newletter<br>i = InStr(i, oldstring, oldletter, vbTextCompare) + Len(oldletter)<br>Loop<br>Replace = Replace & Right(oldstring, Len(oldstring) - i + 1)<br>End Function<br><br>HTH<br>RDH <p>Ricky Hicks<br><a href=mailto: rdhicks@mindspring.com> rdhicks@mindspring.com</a><br><a href= > </a><br>