jag vill alltså att med formeln dra bort från y antal bortgångna och andra människor som flyttat ut och plussa på de som fötts men det funkar inte! snälla hjälp mig.

<code>
Public Sub Command1_Click()
Dim y As Integer
y = 26000

'i är ett index som visar hur många gånger bräkningen måste göras
i = Val(Text1.Text) - 1996

'Om i är mindre än 0 är årtalet som angets tidigare än 1996
If (i < 0) Then


'om det var ett giltigt årtal som angavs görs följande beräkningar
Else

'Medans i är större än noll måste beräkningen nedan utföras
While (i > 0)

'ut är summan som blir kavr när manräknar inflyttade och utflyttade
ut = 25

' här räknas det nya antalet invånare ut. det nya y värdet är lika med det gamla yvärdet +födda -utflyttade och döda'
y = Val(y) + Val(y * 0.07) - Val(y * 0.06) - Val(25)

'index i räknas ned för att hålla reda på hur många gånger till beräkningen ska göras
i = i - 1

Wend
End If

lblSvar.Caption = y
End Sub
</code>

Det är din formel som är fel

den skall se ut enligt följande:
<code>
y = (Val(y) + Val(y * 0.07)) - (Val(y * 0.06) - Val(25))
</code>

Du måste alltså begränsa delen som beräknar befolkningsöknins samt delen som beräknar minskningen och sedan göra en beräkning på dess summor. Så som du gjorde beräknade du 26000 + 1820 -1560 -25 = 26235. För att få rätt svar skall det vara (26000 + 1820) - (1560 -25) = 26285

Hoppas jag inte rörde till det för dig.