Sub Substract
Private SrTot, SrSub As String
Private Result As Double
SrTot = format(lblTotalPagar.text)'<<crash
SrSub = format(lblTotalFactura.text)
Result = SrTot - SrSub
Log("Resultado : " &SrSub)
End Sub
Public Sub format(d As Double) As String
Dim s As String = NumberFormat2(d, 2, 2, 2, False)
Return s.Replace(".", ",")
End Sub
java.lang.NumberFormatException: Invalid double: "2114,19"