No aparece el valor con decimales en un campo texto

Si tu campo importe lo has declarado cono Moneda, puedes declarar la variable como Currency en vez de Double.

También puedes probar a poner el símbolo a través de su valor ascii, usando la función Chr.

Yo probé en un formulario y funciona correctamente con un botón y dos controles. ¿Tendrás algún problema con algún espacio o algo?

Private Sub Comando8_Click()
Dim prueba2 As Double
Dim text As String
prueba2 = Me.importe.Value
Me.text.Value = "hola, el importe es " & prueba2 & "€."
End Sub