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