Visual Basic - Coma decimal en VBA Excel

Public Function sDecimal(Cantidad As Double, sMiles As String, sDecimales As String) As String

 Dim tValor As String

 tValor = Format(Cantidad, "$ ##,###,###.00")

 tValor = Replace(tValor, ",", "m"): tValor = Replace(tValor, ".", "d")

 tValor = Replace(tValor, "m", sMiles): tValor = Replace(tValor, "d", sDecimales)

 sDecimal = tValor

End Function

Private Sub Form_Load()

 Dim Valor As Double

 Valor = 1234567.89

 MsgBox sDecimal(Valor, ",", ".")

End Sub

Public Function sDecimal(Cantidad As Double, sMoneda As String, sMiles As String, sDecimales As String) As String

 sDecimal= Format(Cantidad, "##,###,###.00")

 sDecimal= Replace(sDecimal, ".", "d")

 sDecimal= Replace(sDecimal, ",", sMiles)

 sDecimal= Replace(sDecimal, "d", sDecimales)

 sDecimal = sMoneda + sDecimal

End Function

Private Sub Form_Load()

 Dim Valor As Double

 Valor = 1234567.89

 MsgBox sDecimal(Valor,"$ ", ",", ".")

End Sub

Private Sub Text1_AfterUpdate(Index as Integer)

 If Text1(Index).Text > 0 Then Text1(Index).Text = sDecimal(T1, "$ ", ",", ".")

 CALCULA

End Sub

Sub CALCULA()

 Dim ctrl As Control

 Dim falta As Double

 Dim Tempo as Integer

 if Txt_importe = "" Then Txt_importe = 0

 for tEmpo = 0 to Text1.ListCount-1

  If Text1.(teMpo) = "" Then Text1(temPo).text = 0

 next tempO

 Suma=  0

 for Tempo = 0 to Text1.ListCount-1

  suma = suma + Text1.(teMpo)

 next temPo

 falta = Txt_importe - suma

 Me.Lbl_falta.Caption = "Falta imputar $ " & sDecimal(falta, "$ ", ",", ".")

 GoTo fin

 moneda:

 fin:

End Sub