僕は、TukaeSOというクラスライブラリを作るのが主になっています。
なんか使えそうなのを作ってはどんどん放り込んでいます。

自分の自信作の関数です。

Namespace TukaeruModuleAndClass

    ''' <summary>分類するほどでもないメソッドを集めました。</summary> 

    Public Module TukaeruModule

        ''' <summary>バイト単位をメガバイト単位などにわかりやすく変換します。</summary> 

        ''' <param name="FileSize">ファイルの大きさをバイト単位で指定してください。</param> 

        ''' <remarks>エクサバイト(EB)まで対応しています。</remarks> 

        Public Function FileSizeConvert(ByVal FileSize As Long) As String

            If FileSize < 1024L Then

                Return CStr(FileSize) & " B"

            ElseIf FileSize < 1048576L Then

                Return Format(FileSize / 1024L, "0 KB")

            ElseIf FileSize < 1073741824L Then

                Return Format(FileSize / 1048576L, "0.0 MB")

            ElseIf FileSize < 1099511627776 Then

                Return Format(FileSize / 1073741824L, "0.0 GB")

            ElseIf FileSize < 1125899906842624 Then

                Return Format(FileSize / 1099511627776, "0.0 TB")

            ElseIf FileSize < 1152921504606846976 Then

                Return Format(FileSize / 1125899906842624, "0.0 PB")

            Else

                Return Format(FileSize / 1152921504606846976, "0.0 EB")

            End If

        End Function

End Namespace

ほかにもいろいろあります。