Ok, here's the fresh code, my only problem is the answers(output) of meters and cm are 0 meters, and 8057.6 cm. I needed to get an answer of 65 meters and 73.5 centimeters.
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
Dim Miles, Yards, Feet, Inches, totalInches, totalMeters As Double
Dim km, m, cm As Double
'assign values from txt boxes
Miles = txtMiles.Text
Yards = txtYards.Text
Feet = txtFeet.Text
Inches = txtInches.Text
'convert to inches
Miles = 63360 * Miles
Yards = 36 * Yards
Feet = 12 * Feet
totalInches = Miles + Yards + Feet
'convert to meters
totalMeters = totalInches / 39.37
Miles = Miles / 39.37
Yards = Yards / 39.37
Feet = Feet / 39.37
km = Miles
m = Yards
cm = Feet
km = Int(Miles / 1000)
m = Int((totalMeters - Miles) / 1000)
cm = Math.Round(totalMeters - (km + m), 1)
'display
cm = Math.Round(cm, 2)
With lstOutput.Items
.Add("The metric length is")
.Add(km & " kilometers")
.Add(m & " meters")
.Add(cm & " centimeters")
.Add(totalInches)
.Add(totalMeters)
End With
End Sub