Función: Formato de tamaño

Esta función lo que pretende es convertir el Valor introducido a un formato parecido al que usa windows para una lectura mas fácil.

Public Function ConvTamano(ByVal Valor As Double) As String
        Dim Texto As String = ""
        Dim Tamanos As String() = {" bytes", " Kb", " Mb", " Gb", " Tb", " Pb", " Eb", " Zb", " Yb"}
        Dim Calculo As Double = Valor
        Dim ValorTamano As Double = 1
        Dim Conta, Conta2, Parada As Integer
        Conta = 0
        Parada = 0
        For Each Tama In Tamanos
            If Conta <> 0 Then
                ValorTamano = ValorTamano * 1024
                Calculo = Calculo - ValorTamano
            End If
            If Calculo >= 0 Then
                Conta = Conta + 1
                Parada = 1
            Else
                Conta = Conta - 1
                Exit For
            End If
        Next
        If Parada = 1 Then
            For Conta2 = 1 To Conta
                Valor = Valor / 1024
            Next
            If Conta = 0 Then
                Texto = Fix(Valor) & Tamanos(Conta)
            Else
                Texto = FormatNumber(Valor, 2) & Tamanos(Conta)
            End If
        End If
        Return Texto
    End Function

Seguramente haya una manera mejor de hacerlo que esta, pero es mi primera función en VB.

Está incluida en la librería ManejosDLL.dll.