Riporto una soluzione ottima che ho ritrovato su un altro forum che risolve perfettamente la questione....così che ne potrebbe aver bisogno in futuro ha già la soluzione

Da mettere in intestazione nel modulo

Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long,
ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Declare Function GetUserDefaultLCID Lib "kernel32" Alias "GetUserDefaultLCID" () As Long

Const LOCALE_SDECIMAL = &HE ' separatore decimale

......
......
questo da inserire in una Sub o Function

Dim lcidLocale as Long

lcidLocale = GetUserDefaultLCID ()
SetLocaleInfo(lcidLocale, LOCALE_SDECIMAL, ",")