Expresar bytes en otras unidades (Visual Basic).

Esta función sirve para expresar bytes en otras unidades (Kilobytes, Megabytes, etc.), de modo que la cantidad a manejar se reduzca

Function ConvBytes(ByVal Bytes#) As String
    Dim Nm(0 To 4) As String, L As Integer
    Dim S As String
    Nm(0) = "Bytes"
    Nm(1) = "Kilobytes"
    Nm(2) = "Megabytes"
    Nm(3) = "Gigabytes"
    Nm(4) = "Terabytes"
    L = 0
    While (Fix(Bytes / 1024#) > 0) And (L < 4)
        L = L + 1
        Bytes = Bytes / 1024#
    Wend
    S = LTrim(Str(Bytes))
    If InStr(1, S, ".") > 0 Then S = Left(S, InStr(1, S, ".") + 2)
    ConvBytes = S + " " + Nm(L)
End Function