Private Sub TextBox1_TextChanged(sender As System.Object, _
      e As System.EventArgs) Handles TextBox1.TextChanged
 
     Try
        If String.IsNullOrWhiteSpace(TextBox1.Text) Then Exit Sub
        Dim it As Integer = CInt(TextBox1.Text)
        'Hier werden die Erweiterungsroutinen auf it angewendet
        Me.Text = it.GetBits.Bits2String
     Catch ex As Exception
        MsgBox(ex.Message)
     End Try
End Sub