mZahlen(1) = CLng(Text1.Text) 
mZahlen(2) = CLng(Text2.Text) 
mZahlen(3) = CLng(Text3.Text) 
mZahlen(4) = CLng(Text4.Text) 
mZahlen(5) = CLng(Text5.Text) 
 
' wenn du ein Textfeld kopierst und auf der Form 5 mal einfügst (oder 
' indizierst), geht es auch so
For I = 1 to 5
  ' du mußt nur schauen, das beide Werte der Gleichung bei 0 oder bei 1 anfangen  
  mZahlen(I) = CLng(Text1(I).Text)
Next I