till indurain:

Tack för ditt exempel, det hjälpte lite men du förstod nog inte
riktigt vad jag menade, så den här gången skickar jag med nästan hela koden.

Användaren ska skriva in åtta tecken, bara ettor och nollor, sen när personen
trycker på en knapp ska programmet räkna ut vilket ASCII-värde binärtalet är.

Här är koden:
'-------------------------
Dim ASCII
' här kollar vi alla ettor
If Left(txtBinär.Text, 1) = "1" Then ASCII = "128+"
If Left(txtBinär.Text, 2) = "1" Then ASCII = ASCII + "64+"
If Left(txtBinär.Text, 3) = "1" Then ASCII = ASCII + "32+"
If Left(txtBinär.Text, 4) = "1" Then ASCII = ASCII + "16+"
If Left(txtBinär.Text, 5) = "1" Then ASCII = ASCII + "8+"
If Left(txtBinär.Text, 6) = "1" Then ASCII = ASCII + "4+"
If Left(txtBinär.Text, 7) = "1" Then ASCII = ASCII + "2+"
If Left(txtBinär.Text, 8) = "1" Then ASCII = ASCII + "1+"
' här kollar vi alla nollor
If Left(txtBinär.Text, 1) = "0" Then ASCII = "0+"
If Left(txtBinär.Text, 2) = "0" Then ASCII = ASCII + "0+"
If Left(txtBinär.Text, 3) = "0" Then ASCII = ASCII + "0+"
If Left(txtBinär.Text, 4) = "0" Then ASCII = ASCII + "0+"
If Left(txtBinär.Text, 5) = "0" Then ASCII = ASCII + "0+"
If Left(txtBinär.Text, 6) = "0" Then ASCII = ASCII + "0+"
If Left(txtBinär.Text, 7) = "0" Then ASCII = ASCII + "0+"
If Left(txtBinär.Text, 8) = "0" Then ASCII = ASCII + "0"

txtASCII = ASCII ' visa ASCII-koden
ASCII_Till_Tecken ' omvandla till tecken
'-------------------------

Programmet ska kolla igenom hela textboxen och kolla varje tecken vart det ligger
och om det är en etta eller nolla. Hoppas jag förklarade lite bättre den här gången.

/Hjorten