passa anche un riferimento al pulsante chiamante:

codice:
onclick="vbcode(this.form,'B','',this)"
e poi fai una cosa del genere:

codice:
if (nomequartoparametro.createTextRange && nomequartoparametro.caretPos)
ciao