Calcula el valor de tickete de avion

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim valor As Decimal

        Dim recargo As Decimal

        If (optargentina.Checked = True) Then

            valor = 1000 * 1000

            txtvalor.Text = valor

        End If

        If (optfrancia.Checked = True) Then

            valor = 2000 * 1000

            recargo = 300000

            txtvalor.Text = valor + recargo

        End If

        If (optvenezuela.Checked = True) Then

            valor = 500 * 1000

            txtvalor.Text = valor

        End If

        If (optperu.Checked = True) Then

            valor = 700 * 1000

            txtvalor.Text = valor

        End If

    End Sub

programa hecho en visual studio
lenguaje: .net