‘ Convert from square feet to square meters, and vice versaFunction SquareFeetToSquareMeters(ByVal squareFeet As Double) As Double Return squareFeet * 0.0929End FunctionFunction SquareMetersToSquareFeet(ByVal squareMeters As Double) As Double Return squareMeters
‘ Convert from inches to centimeters, and vice versaFunction InchesToCentimeters(ByVal inches As Double) As Double Return inches * 2.54End FunctionFunction CentimetersToInches(ByVal centimeters As Double) As Double Return centimeters / 2.54End
‘ Convert from imperial gallons to liters, and vice versaFunction UKGallonsToLiters(ByVal gallons As Double) As Double Return gallons * 4.546End FunctionFunction LitersToUKGallons(ByVal liters As Double) As Double Return liters /
‘ Convert from pints to cubic decimeters, and vice versaFunction PintsToCubicDecimeters(ByVal pints As Double) As Double Return pints * 0.568End FunctionFunction CubicDecimetersToPints(ByVal cuDec As Double) As Double Return cuDec /
‘ Convert from ounces to grams, and vice versaFunction OuncesToGrams(ByVal ounces As Double) As Double Return ounces * 28.349End FunctionFunction GramsToOunces(ByVal grams As Double) As Double Return grams / 28.349End
‘ Convert from pounds to kilograms, and vice versaFunction PoundsToKilograms(ByVal pounds As Double) As Double Return pounds * 0.4536End FunctionFunction KilogramsToPounds(ByVal kilograms As Double) As Double Return kilograms / 0.4536End
‘ Convert from square yards to square meters, and vice versaFunction SquareYardsToSquareMeters(ByVal squareYards As Double) As Double Return squareYards * 0.8361End FunctionFunction SquareMetersToSquareYards(ByVal squareMeters As Double) As Double Return squareMeters
‘ Convert from US gallons to liters, and vice versaFunction USGallonsToLiters(ByVal gallons As Double) As Double Return gallons * 3.785End FunctionFunction LitersToUSGallons(ByVal liters As Double) As Double Return liters /
‘ Read all lines from a text file into a String array” Example:’ Dim lines As String() = FileToArray(“D: est.txt”)’ Dim line As String’ For Each line In lines’ Debug.WriteLine(line)’