Dim $Loop
Dim $Anzahl

$Anzahl=Number(Inputbox([...]))

Dim $Array[$Anzahl+1]

Do
$Array[$Loop+1]=ClipGet()
If StringIsAlpha($Array[$Loop+1]) Then
[...]
EndIf
$Loop+=1
Until $Loop=$Anzahl