Dim txtBuilder As New System.Text.StringBuilder

            For Each Character As Byte In System.Text.ASCIIEncoding.ASCII.GetBytes(MyString))
                txtBuilder.Append(Convert.ToString(Character, 2).PadLeft(8, "0"))
                txtBuilder.Append(" ")
            Next

            MyBinary = txtBuilder.ToString.Substring(0, txtBuilder.ToString.Length - 0)