Tem alguma forma de forçar as funções Format e Format$ formatarem corretamente valores recebidos com . (ponto) ?

ERRADO:
debug.print format$("23490.00","#,###,##0.00")
2.349.000,00

CERTO seria mostrar:
23.490,00

na realidade colega o que está acontecendo, você deve mudar o Ponto por Virgula para que esta função haja da forma  esperada, pois da forma que está ele vai inserir os zeros a direita do numero para validar a formatação, se em seu bd todos os numeros estão desta forma então faça isto:

 

 

creio que vá resolver seu problema

 

Valeu

 

Fiz assim, conforme abaixo e deu certo:

        On Error Resume Next
        If InStr(strValor, ".") <> 0 Then
            strValor = Replace(strValor, ".", ",")
        End If
       
        vntValor = CDec(strValor)
       
        If Err.Number <> 0 Then
            FormataValor = ""
        Else
            FormataValor = Format(vntValor, "###,###,###,###,###,##0.00")
        End If
        On Error GoTo 0