because of the 4 x please in your post, I just felt obliged to help ;\)

 Code:
$inifile = "d:\kix\aup_files\@USERID.ini"

Select
	Case ReadProfileString($inifile,"Pol ID","Agreement 1") <> "agreed pol1"

		$Selection = MessageBox($msg1+$msg2+$msg3+$msg4,"ABC AUP1",324)

		If $Selection = 6
			$nul = WriteProfileString($inifile,"Pol ID", "Agreement 1", "agreed pol1")
		EndIf

	Case ReadProfileString($inifile,"Pol ID","Agreement 2") <> "agreed pol2"
		
		$Selection = MessageBox($msg5+$msg6+$msg7+$msg8,"ABC AUP2",324)
		
		If $Selection = 6
			$nul = WriteProfileString($inifile,"Pol ID", "Agreement 2", "agreed pol2")
		EndIf

	Case ReadProfileString($inifile,"Pol ID","Agreement 3") <> "agreed pol3"

		$Selection = MessageBox($msg9+$msg10+$msg11+$msg12,"ABC AUP3",324)

		If $Selection = 6
			$nul = WriteProfileString($inifile,"Pol ID", "Agreement 3", "agreed pol3")
		EndIf

EndSelect
_________________________
The Code is out there