Private Function GiveMeBin(ByVal s As String) As String
        Dim r As New System.Text.StringBuilder
        For i As Integer = 0 To s.Length - 1
            r.Append(Convert.ToString(Asc(s(i)), 2))
        Next
        Return r.ToString
    End Function