Private Sub Command3_Click()

'//////variable//////'

Dim sngPrijs11 As Single
Dim sngPrijs12 As Single
Dim sngPrijs13 As Single
Dim sngPrijs21 As Single
Dim sngPrijs22 As Single
Dim sngPrijs23 As Single
Dim sngPrijs31 As Single
Dim sngPrijs32 As Single
Dim sngPrijs33 As Single

Dim sngA As Single
Dim sngB As Single
Dim sngC As Single

'//////value//////'

sngPrijs11 = Val(txt11.Text)
sngPrijs12 = Val(txt12.Text)
sngPrijs13 = Val(txt13.Text)
sngPrijs21 = Val(txt21.Text)
sngPrijs22 = Val(txt22.Text)
sngPrijs23 = Val(txt23.Text)
sngPrijs31 = Val(txt31.Text)
sngPrijs32 = Val(txt32.Text)
sngPrijs33 = Val(txt33.Text)

'//////frame1//////'

If optVRG1.Value = True Then
    A = sngPrijs11
End If
If optVRG2.Value = True Then
    A = sngPrijs12
End If
If optVRG3.Value = True Then
    A = sngPrijs13
End If

'//////frame2//////'

If optHFG.Value = True Then
    B = sngPrijs21
End If
If optHFG2.Value = True Then
    B = sngPrijs22
End If
If optHFG3.Value = True Then
    B = sngPrijs23
End If

'//////frame3//////'

If optNGR1.Value = True Then
    C = sngPrijs31
End If
If optNGR2.Value = True Then
    C = sngPrijs32
End If
If optNGR3.Value = True Then
    C = sngPrijs32
End If

'//////totaalprijs//////'

txtTotaal = A + B + C


End Sub