Sure, that shouldn't be that difficult:
#include <EditConstants.au3>
Global $Form1 = GUICreate("Test", 250, 137, 181, 124)
Global $Label1 = GUICtrlCreateLabel("Number", 18, 44, 45, 27)
Global $Input1 = GUICtrlCreateEdit("a", 88, 42, 120, 60,$ES_MULTILINE)
Global $Solve = GUICtrlCreateButton("Solve", 160, 112, 80, 17)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $Solve
$result = StringSplit(GUICtrlRead($Input1),",;")
for $x = 1 to $result[0]
Equation($result[$x])
Next
EndSwitch
WEnd
Func Equation($example)
$a= $example^2
MsgBox ( 48, "solution", "The solution of " & $example & "^2 is " & $a)
EndFunc
Jos
PS:No need to qoute my post as we can see what I wrote already