Irgendwie ein recht sinnloser Code denke ich, da du zweimal Text1.Text verwendet hast. Davon ganz abgesehen noch ein paar Dinge nebenher:
Dim nBla as Integer
If IsNumeric(Text1.Text) Then nBLa = CInt(Text1.Text)
Die Int() Funktion schneidet ab, die CInt() Funktion rundet auf den nächsten Wert. In VB solltest du niemals Berechnungen innerhalb einer Int() Funktion durchführen, es gab da mal einen bekannten Bug, ich weiß nicht ob der bis dato behoben wurde...
Also nicht Int(a+b*c) oder so, sondern erst einer Variablen zuweisen...
Huch, und ich seh erst jetzt wer da noch gepostet hat...datt Eyewitness..na lölinchen sag ich nur. Den wird man auch nie los *g*