Se me ocurre algo así:
Texto = Rs("Texto")
'Obtienes la primera posición donde se encuentre "#"
count= instr(texto, "#") + 1
'Necesitas saber donde se encuentra la segunda "#"
count2= instr(count, texto, "#")
'Obtienes el largo de este substring
pos= count2 - count1
'Cortas la cadena comenzando por el caracter posterior donde encontraste la primera "#" y el largo de ese string
palabra= mid(palabra, count, pos)
Es solo una idea, a ver si sirve, no lo he probado
Salu2,