Calcular el precio de un boleto de tren Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo  que determine el precio de un billete ida y vuelta en ferrocarril,dando la distancia a recorrer y el  número de días en destino, sabiendo que si la estancia es superior a 7 días y la distancia es superior a 800 km. El billete tiene una reducción del 30%. El precio por kilómetro es de 8.5 soles.
Codigo Fuente en Visual Basic

Public Class Form
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim lon, dia As Integer
        Dim costo As Double
        lon = TextBox1.Text
        dia = TextBox2.Text
        If (dia > 7 And lon > 800) Then
            costo = lon * 8.5 - lon * 8.5 * 0.3
        Else
            costo = lon * 8.5
        End If
        TextBox3.Text = Trim((2 * costo))
    End Sub
End Class

 Descargar Proyecto Visual Basic