Funktionen nedan fungerar att byta :), men rad2 fungerar inte. Har försökt att lösa detta men kommer inte på någon lösning.

Public Function Smiley(ByVal Title As String) As String
        Return Title.Replace(":)", "<img src='00016.gif' border='0'>")
        Return Title.Replace(";)", "<img src='00016.gif' height='70' border='0'>")
    End Function

funktionen slutar vid första return, gör alla dina replace till en tempsträng och returnera den längst ned.

Tack jag förstår. Nu funkade det. Stort tack.