Private Sub DistanceConvertButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DistanceConvertButton.Click
        'converts Distances to metric
        Dim numInch As Decimal
        Dim numFeet As Decimal
        Dim numMile As Decimal
        Dim numCenti As Decimal
        Dim numMeter As Decimal
        Dim numKilo As Decimal

        If txtInch.Text <> " " Then
            numInch = txtInch.Text * 2.54
            txtCenti.Text = numInch
        Else
            numCenti = txtCenti.Text / 2.54
            txtInch.Text = numCenti
        End If

        If txtFeet.Text <> " " Then
            numFeet = txtFeet.Text * 0.3048
            txtMeter.Text = numFeet
        Else
            numMeter = txtMeter.Text / 0.3048
            txtFeet.Text = numMeter
        End If
        If txtMile.Text <> " " Then
            numMile = txtMile.Text * 1.61
            txtKilo.Text = numMile
        Else
            numKilo = txtKilo.Text / 1.61
            txtMile.Text = numKilo
        End If
    End Sub

numInch = txtInch.Text * 2.54

TextBox.Text.Clear()

TextBox.Text = ""

TextBox.Text = String.Empty