Função em Excel para trocar vírgula por ponto

Function Virgula2Ponto(Dado As Variant, CasasDecimais As Integer) As String
    Dim sDado As String
    Dim dDado As Double
    Dim PosicaoVirgula As Integer
   
    dDado = Round(Dado, CasasDecimais)
    sDado = CStr(dDado)
    PosicaoVirgula = InStr(1, sDado, ",")
    sDado = Left(sDado, PosicaoVirgula + CasasDecimais)
    Virgula2Ponto = Replace(sDado, ",", ".")
End Function