Bueno, parece que al fin lo he conseguido... como no me ha contestado nadie entiendo que habrá mucha gente que no sepa cómo se hace esto así que voy a poner el código que he hecho (que no es el mejor del mundo pero funciona).
<BLOCKQUOTE><font size=1 face=arial>Citando:<hr height=1 noshade><script language="VBScript">
public VLink,VSmile
sub Addlink()
MyURL=inputbox("Teclea una URL")
Mylink=inputbox("Teclea texto del link")
VLink="<b><a href=" & chr(34) & "http://" & MyURL & chr(34) & ">" & Mylink & "</a></b>"
formul.txt_noti.value=formul.txt_noti.value & "[Link]"
end sub
sub Addsmile()
VSmile="<img src=" & chr(34) & "midirectoriodeimagenes/smile.gif" & chr(34) & ">"
formul.txt_noti.value=formul.txt_noti.value & "[

]"
end sub
sub Validar()
formul.txt_noti.value=replace(formul.txt_noti.valu e,"[Link]",VLink)
formul.txt_noti.value=replace(formul.txt_noti.valu e,"[

]",VSmile)
end sub
</script>
</head>
<body background="midirectoriodeimagenes/bg.gif" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<div align="center">
<form method="post" action="guardarenBD.asp" name="formul">
<div class="txtnoti">Cabecera de la noticia:</div>
<input type="text" name="txt_cab" maxlength="25"><br>
<div class="txtnoti">Texto de la noticia:</div>
<p>
<textarea name="txt_noti" cols="60" rows="8" ></textarea>
<br>
<input type="button" name="Link" value="Link" onclick="Addlink">
<input type="button" name="Smile" value="Smile" onclick="Addsmile">
</p>
<p>
<input type="submit" name="btn_ok" value="Aceptar" onclick="Validar">
</p>
</form>
</div></body>
</html> [/QUOTE]
Espero que resuelva muchas dudas.
FeReNZCy