Converting Kilos to Stones, pounds and ounces

[Españolita]

It is easy to find conversions from kilos to pounds and ounces however it is much more difficult to find conversions to stones. Here is my solution.

Private Function KilosToStone(ByVal Kilos As Single) As String
        Dim Ounces As Single
        Dim Pounds As Single
        Dim Stones As Single
 
        Const OneStone As Single = 6.35029
        Const OnePound As Single = 0.453592
        Const OneOunce As Single = 0.0283495
        '8 eighths in an inch
        '96 eighths in a foot
        Stones = Int(Kilos / OneStone)
        Kilos -= Stones * OneStone
        Pounds = Int(Kilos / OnePound)
        Kilos -= Pounds * OnePound
        Ounces = Int(Kilos / OneOunce)
 
        Return Stones.ToString & "st " & Pounds.ToString & "lb " & Ounces.ToString & "oz"
    End Function