Local $Form1 = GUICreate("Binary to String", 876, 422, 192, 124)
Local $Edit1 = GUICtrlCreateEdit("Hi Guys", 48, 48, 337, 305)
Local $Edit2 = GUICtrlCreateEdit("", 412, 49, 425, 305)
Local $Label1 = GUICtrlCreateLabel("Binary", 56, 24, 23, 17)
Local $Label2 = GUICtrlCreateLabel("String", 416, 24, 31, 17)
Local $Button1 = GUICtrlCreateButton("String to Binary", 150, 376, 147, 25)
Local $Button2 = GUICtrlCreateButton("Binary to String", 550, 376, 147, 25)

GUISetState(@SW_SHOW)
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
     Case -3
        Exit
     Case $Button1
        GUICtrlSetData($Edit2,StringToBinary(GUICtrlRead($Edit1),2))

     Case $Button2
        GUICtrlSetData($Edit1,BinaryToString(GUICtrlRead($Edit2),2))
  EndSwitch
WEnd