usa la funzione Replace:

mioNum = Replace(Text1.Text, ".", ",")

dove mioNum è la variabile che riceve il numero inserito nella text, che poi andrai a salvare nel tuo db.

così dovrebbe funzionare!