Private Declare Function StrFormatByteSize Lib _
        "shlwapi" Alias "StrFormatByteSizeA" (ByVal _
        dw As Long, ByVal pszBuf As String, ByRef _
        cchBuf As Long) As String

Private Function FormatKB(ByVal Amount As Long) As String
    Dim Buffer As String
    Dim Result As String

    Buffer = Space$(255)
    Result = StrFormatByteSize(Amount, Buffer, Len(Buffer))

    If InStr(Result, vbNullChar) > 1 Then
        FormatKB = Left$(Result, InStr(Result, vbNullChar) - 1)
    End If
End Function