[Tutorial]Convert Bits 2 Bytes

Option Strict On
Imports System.Convert

Public Class Form1
    'True = Bytes to bits
    'False = bits to Bytes

    Dim objBitByte As New Converter()

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        If CheckBox1.Checked = False Then
            'Unabbreviated output
            TextBox2.Text = objBitByte.Convert(CLng(TextBox1.Text), RadioButton1.Checked)
        Else
            'Abbreviated output
            TextBox2.Text = objBitByte.Format(CLng(objBitByte.Convert(CLng(TextBox1.Text), RadioButton1.Checked)), RadioButton1.Checked)
        End If
    End Sub

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        'Change lblBit to display "Bytes" when converting to bits
        If RadioButton1.Checked = True Then
            lblbit.Text = "Bytes"
        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        'Change lblBit to display "bits" when converting to Bytes
        If RadioButton2.Checked = True Then
            lblbit.Text = "bits"
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Not IsNumeric(TextBox1.Text) Then
            TextBox1.Clear()
        End If
    End Sub
End Class
Public Class Converter

#Region "Methods"

      Function Convert(ByVal intBitByte As Int64, ByVal blnType As Boolean) As String
        If blnType = True Then
            'Convert from bits to Bytes 
            Try
                Return CStr(intBitByte * 8)
            Catch err As ApplicationException
                MessageBox.Show(err.Message)
            End Try
        Else
            'Convert from Bytes to bits 
            Try
                Return CStr(intBitByte \ 8)
            Catch err As ApplicationException
                MessageBox.Show(err.Message)
            End Try
        End If
    End Function

    Function Format(ByVal intData As Int64, ByVal blnType As Boolean) As String
        Dim strData As String
        If intData < 1024 Then
            If blnType = False Then
                'B
                strData = CStr((intData) & " B")
                Return strData
            Else
                ' b
                strData = CStr((intData) & " b")
                Return strData
            End If
        ElseIf intData >= 1024 And intData < 1048576 Then
            If blnType = False Then
                ' KB
                strData = CStr((intData * 10 ^ -3) & " KB")
                Return strData
            Else
                'Kb
                strData = CStr((intData * 10 ^ -3) & " Kb")
                Return strData
            End If
        ElseIf intData >= 1048576 And intData < 1073741824 Then
            If blnType = False Then
                ' MB
                strData = CStr((intData * 10 ^ -6) & " MB")
                Return strData
            Else
                ' Mb
                strData = CStr((intData * 10 ^ -6) & " Mb")
                Return strData
            End If
        ElseIf intData >= 1073741824 And intData < 1099511627776 Then
            If blnType = False Then
                'GB
                strData = CStr((intData * 10 ^ -9) & " GB")
                Return strData
            Else
                'o Gb
                strData = CStr((intData * 10 ^ -9) & " Gb")
                Return strData
            End If
        ElseIf intData >= 1099511627776 And intData < 1125899906842624 Then
            If blnType = False Then
                'TB
                strData = CStr((intData * 10 ^ -12) & " TB")
                Return strData
            Else
                ' Tb
                strData = CStr((intData * 10 ^ -12) & " Tb")
                Return strData
            End If
        Else
            MessageBox.Show("ERROR: overflow", "Program does not support EB/Eb or higher!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
        End If
    End Function

#End Region
    Public Class Form1
        'True = Bytes to bits
        'False = bits to Bytes

        Dim objBitByte As New Converter

    End Class
End Class