Listing B

    Private Sub ConvertByteArrayToString()

        Dim btText() As Byte = {0, 100, 200, 255, 5}

        Dim strText As String

        strText = Convert.ToBase64String(btText)
        MessageBox.Show(strText)

    End Sub