somfunctie-assistentie gevraagd!

[Geforce660]

Dim getal1 As String = TextBox1.Text
Dim getal2 As String = TextBox2.Text
Dim uitkomst As Double
Replace(getal, ".", ",")
Dim g1, g2 As Double
g1 = getal1
g2 = getal2
uitkomst = g1 + g2

TextBox3.Text = uitkomst


=> ik zou graag hebben dat als je een punt invoerd,deze als een komma gelezen wordt, maar hoe doe je dit juist?? kan iemand me helpen?

 

[Wigi]

Werkt dit?

Sub textboxesOptellen()
    Dim getal1 As String
    Dim getal2 As String
    Dim g1 As Double
    Dim g2 As Double
    Dim uitkomst As Double
    
    getal1 = TextBox1.Text
    getal2 = TextBox2.Text
    
    g1 = Replace(getal1, ".", ",") + 0
    g2 = Replace(getal2, ".", ",") + 0
    uitkomst = g1 + g2
    
    TextBox3.Text = uitkomst
End Sub

ongeteste code

Wigi

 

[Geforce660]

bedankt voor je hulp! het werkt :thumb: