Public Class MainClass Private Function Inches(ByVal Cm As String) Inches = Val(Cm) / 2.54 Inches = FormatNumber(Inches, 2) Return Inches End FunctionEnd Class