Visual Basic - Puntos de miles, URGE

Hola

Tengo la siguientes instrucciones para convertir numeros decimales en enteros:

existencias = Data4.Recordset.Fields("exi_art")
existencias = Format(existencias, "#")

Pero ademas quiero tambien ponerles los separadores de millares a estos numeros.

He intentado hacer:

existencias = Data4.Recordset.Fields("exi_art")
existencias = Format(existencias, "#.#")

pero no funciona.

¿Como lo hago?

Muchas gracias.

Mejor hacerlo de una tacada
existencias =format( Data4.Recordset.Fields("exi_art") ,"#,###")