Binær tal til desimal tal

Jeg ved det faktisk ikke, men jeg lavede engang nogle VB Scripts der kunne udføre det du efterlyser.
Hvis du sætter de nedenstående kodestumper ind i en tekstfil der hedder .vbs til sidst kan du afvikle dem som scripts. Det kan ikke være supersvært at oversætte dem til "rigtig" VB kode...

Her er den der går fra Binær til Decimal:

dim i, j, binstr, dec, flag, errcode, failchr

binstr = InputBox("Input binary string", "Bin to Dec", "1001")
flag = false


	for j = 1 To Len(binstr)

		if isnumeric(mid(binstr, j, 1)) Then
			if Mid(binstr, j, 1) > 1 OR Mid(binstr, j, 1) < 0 Then
				flag = true
				errcode = j
				failchr = mid(binstr, j, 1)
			end if
		else
			flag=true
			errcode=j
			failchr = mid(binstr, j, 1)
		end if

		if flag=true then
			exit for
		end if

	next

if flag = false then
	for i = 1 To len(binstr)

		if dec = "" Then
			dec = Mid(binstr, i, 1) * 2^(len(binstr)-i)
		else
			dec = dec + Mid(binstr, i, 1) * 2^(len(binstr)-i)
		end if

	next
	
	msgbox "The Decimal equivalent to your binary number is:" & vbcrlf & dec, vbOkOnly + vbInformation, "Bin2Dec"
else
	MsgBox "An error occured!" & vbCrLf & "Char no. " & errcode & " (" & failchr & ")" & " is not a valid binary number!", vbExclamation + vbOkOly, "Bin2Dec"
end if

Her er den der går den anden vej:

dim dec
dim a

a = ""
dec = inputbox("Input decimal number","Dec to Bin")

while dec <> 0

	if dec mod 2 = 1 then
		a = 1 & a
		dec = (dec - 1) / 2
	else
		a = 0 & a
		dec = dec / 2
	end if
wend


msgbox "The binary equal to your decimal number is:" & vbcrlf & a

Oh, jeg glemte helt at sige, jeg har ikke lavet nogen rigtig fejlhåndtering på brugerinput. Jeg skrev dem til eget forbrug / af kedsomhed.

tak for hjælpen