[Stevie]

Private Sub lstFiguur_Click()
'berekent de inhoud van de geselecteerde figuur

    'declaraties
    Dim r As Double
    Dim I As Double
    Dim pi As Double
    Dim strR As String

    'berekening
    txtBoodschap.Text = "Vul waarde voor r in en selecteer een figuur"
    strR = txtR.Text
    If IsNumeric(strR) Then
        r = Val(strR)
        pi = 3.1415927
        If lstFiguur.Text = "bol" Then I = (4 / 3) * pi * r ^ 3
        If lstFiguur.Text = "kubus" Then I = r ^ 3
        txtInhoud.Text = Str(I)
    Else
        txtBoodschap.Text = "Verkeerde invoer."
        Exit Sub
    End If
End Sub

zo zou hij t moeten doen. hoop ik.