Convert Metres to Feet and Inches

[Españolita]

My offering for converting metric to imperial is below. This is based on metres and feet, however it is easy to scale up, just calculate the number of eighths in the desired distance.

Private Function MetresToFeet(ByVal Answer As Single) As String
        Dim Fraction As String = ""
        Dim Inches As Single
        Dim Feet As Single
 
        Const OneEighth As Single = 0.003175
        '8 eighths in an inch
        '96 eighths in a foot
        Feet = Int(Answer / (96 * OneEighth))
        Answer -= Feet * (96 * OneEighth)
        Inches = Int(Answer / (8 * OneEighth))
        Answer -= Inches * (8 * OneEighth)
        Select Case Answer
            Case Is >= 7 * OneEighth
                Fraction = "⅞"
            Case Is >= 6 * OneEighth
                Fraction = "¾"
            Case Is >= 6 * OneEighth
                Fraction = "⅝"
            Case Is >= 4 * OneEighth
                Fraction = "½"
            Case Is >= 3 * OneEighth
                Fraction = "⅜"
            Case Is >= 2 * OneEighth
                Fraction = "¼"
            Case Is >= OneEighth
                Fraction = "⅛"
            Case Else
                Fraction = ""
        End Select
        Return Feet.ToString & "' " & Inches.ToString & Fraction & """"
    End Function