Gracias a todos, ya lo consegui resolver con ayuda vuestra.
Lo que me faltaba era el Cdbl, lo pongo por si acaso a alguien le ocurre lo mismo:
valor = "CONVERT(Money, " & CDbl(TxtTotalBase.Text) & ")"
Y va sin comillas simples.
Muchas gracias, fero por el interes prestado y a todos
Saludos
Ana