Dim b1 As New Amount(1, Units.DigitalInformation.Byte)
Dim kb1 As New Amount(1, Units.DigitalInformation.Kilobyte)
Dim mb1 As New Amount(1, Units.DigitalInformation.Megabyte)
Dim sb As New StringBuilder()
With sb
.AppendLine(String.Format("{0} bytes is equal to {1} bits", b1.Value, b1.ConvertedTo(Units.DigitalInformation.Bit).Value))
.AppendLine(String.Format("{0} bytes is equal to {1} bytes", b1.Value, b1.ConvertedTo(Units.DigitalInformation.Byte).Value))
.AppendLine(String.Format("{0} kilobytes is equal to {1} bits", kb1.Value, kb1.ConvertedTo(Units.DigitalInformation.Bit).Value))
.AppendLine(String.Format("{0} kilobytes is equal to {1} bytes", kb1.Value, kb1.ConvertedTo(Units.DigitalInformation.Byte).Value))
.AppendLine(String.Format("{0} kilobytes is equal to {1} kilobits", kb1.Value, kb1.ConvertedTo(Units.DigitalInformation.Kilobit).Value))
.AppendLine(String.Format("{0} kilobytes is equal to {1} kilobytes", kb1.Value, kb1.ConvertedTo(Units.DigitalInformation.Kilobyte).Value))
.AppendLine(String.Format("{0} megabytes is equal to {1} bits", mb1.Value, mb1.ConvertedTo(Units.DigitalInformation.Bit).Value))
.AppendLine(String.Format("{0} megabytes is equal to {1} bytes", mb1.Value, mb1.ConvertedTo(Units.DigitalInformation.Byte).Value))
.AppendLine(String.Format("{0} megabytes is equal to {1} kilobits", mb1.Value, mb1.ConvertedTo(Units.DigitalInformation.Kilobit).Value))
.AppendLine(String.Format("{0} megabytes is equal to {1} Kilobytes", mb1.Value, mb1.ConvertedTo(Units.DigitalInformation.Kilobyte).Value))
.AppendLine(String.Format("{0} megabytes is equal to {1} megabits", mb1.Value, mb1.ConvertedTo(Units.DigitalInformation.Megabit).Value))
.AppendLine(String.Format("{0} megabytes is equal to {1} megabytes", mb1.Value, mb1.ConvertedTo(Units.DigitalInformation.Megabyte).Value))
End With
Console.WriteLine(sb.ToString())