' Convert from miles to kilometers, and vice versaFunction MilesToKilometers(ByVal miles As Double) As Double Return miles * 1.6093End FunctionFunction KilometersToMiles(ByVal kilometers As Double) As Double Return kilometers / 1.6093End Function