Can anyone help me rewrite this code to round a decimal down to the full inch?

[wagmanm]

I use this to round decimals to all different size fractions but now I would like to have results that are only to a full inch. How can I make this round to a full inch, if possible to set limits I would like it to round down unless it is above x.85?

Public Function LenText2(FeetIn As Double)
 ' This function will change a decimal number of feet to the text string
 ' representation of feet, inches, and fractional inches.
 ' It will round the fractional inches to the nearest 1/x where x is the denominator.
 ' Copyright 1999 MrExcel.com
 Denominator = 2 ' must be 2, 4, 8, 16, 32, 64, 128, etc.
 NbrFeet = Fix(FeetIn)
 InchIn = (FeetIn - NbrFeet) * 12
 NbrInches = Fix(InchIn)
 FracIn = (InchIn - NbrInches) * Denominator
 Numerator = Application.WorksheetFunction.Round(FracIn, 0)
 If Numerator = 0 Then
 FracText = ""
 ElseIf InchIn >= (11 + (1.499999 / 2)) Then
 NbrFeet = NbrFeet + 1
 NbrInches = 0
 FracText = ""
 ElseIf Numerator = Denominator Then
 NbrInches = NbrInches + 1
 FracText = ""
Else
 Do
 ' If the numerator is even, divide both numerator and divisor by 2
 If Numerator = Application.WorksheetFunction.Even(Numerator) Then
 Numerator = Numerator / 2
 Denominator = Denominator / 2
 Else
 FracText = " " & Numerator & "/" & Denominator
 Exit Do
 End If
 Loop
End If
 LenText2 = NbrFeet & "' - " & NbrInches & FracText & """"
 End Function