Function CmToString(ByVal cm As Long) As String
        Dim sb As New System.Text.StringBuilder
        Dim km As Integer = cm \ 100000 ' Kilometer
        Dim m As Integer = (cm Mod 100000) \ 100 'Meter
        Dim c As Integer = cm Mod 100 'Zentimeter
        sb.Append(km & "km " & m & "m " & c & "cm")
        Return sb.ToString()
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov