Getting Binary values from text

[nitrous]

Hi i know its a simple question but I have a textbox and i need to get the binary values from whatever is inputed into the box and the have the binary data be desplayed into another textbox.

[FatDaz]

I'm not 100% sure this is what you need, but the code below will convert a decimal integer value into binary. It assumes the decimal value is being entered in TextBox1, the result is put into TextBox2, executed from the click event of Button1.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Try
            Dim Dec_Value As Long = CLng(TextBox1.Text)
            Dim Bin_Value As String = ""
            Dim Temp As Long
            Temp = 1
            Do Until Temp > Dec_Value
                Temp = Temp * 2
            Loop
            Do Until Temp < 1
                If Dec_Value >= Temp Then
                    Bin_Value &= "1"
                    Dec_Value -= Temp
                ElseIf Bin_Value <> "" Then
                    Bin_Value &= "0"
                End If
                Temp = Temp / 2
            Loop
            TextBox2.Text = Bin_Value
        Catch
            MsgBox("Invalid input value entered")
        End Try
End Sub