Rekenen achter de komma

[old Hippy]

Beste helpers
Wat doe ik verkeerd??????????

als ik met deze code optel krijg ik alleen een heel getal.
B.v. TariefTextBox.Text = 25,50
AantalzittingenTextBox.Text =2
TotaalTextBox.Text geeft dan 50,00
Het rekend dus niet achter de komma.

 Private Sub Telop()
        Dim Tarief, Aantal
        Tarief = Val(TariefTextBox.Text)
        Aantal = Val(AantalzittingenTextBox.Text)
        Me.TotaalTextBox.Text = (Tarief * Aantal)
    End Sub

 

[Pizara]

Doubles of Decimals werken met punten achter de komma.

    Private Sub Telop()
        Dim Tarief, Aantal[B] As Double[/B]
        Tarief = [B]CDbl[/B]("25,50")
        Aantal = [B]CDbl[/B]("2")
        MsgBox(Tarief * Aantal)
    End Sub

 

[old Hippy]

Beste pizara

Zo snel Heel Heel hartelijk dank
probleem opgelost.