contoh skrip dengan option button

Private Sub Command1_Click()

Dim harga As Currency

harga = 0

If Option3.Value Then

harga = harga + 150000

ElseIf vip.Value Then

harga = harga + 250000

ElseIf Option5.Value Then

harga = harga + 450000

End If

If Option6.Value Then

harga = harga + 50000

ElseIf Option7.Value Then

harga = harga + 75000

ElseIf Option8.Value Then

harga = harga + 150000

End If

MsgBox "harga total Rp" & harga

Dim bayar As Currency

Do

bayar = InputBox("uang anda")

Loop Until bayar >= harga

If bayar > harga Then

MsgBox "kembaliannya" & bayar - harga

Else

MsgBox "terimakasih."

End If

End Sub