Hvordan bereger jeg hvilken plet der skal slettes?

Jeg skal lave en array hvor computeren efter at have skabt at par pletter rundt omkring finde ud af hvilke pletter der skal fjernes ud fra at hvis der er 3 pletter eller flere så skal pletten i center slettes


Jeg har en source-code der ser sådan ud:

Private Sub btnGenerate_Click()
bakterie(x, y) = 0 Or 1
For x = 1 To 100
For y = 1 To 100
tal = Int(2000 * Rnd)
bakterie(x, y) = Int(Str(fldNumber.Text) * Rnd)

FillColor = vbBlue
FillStyle = 1
ForeColor = vbBlue
If bakterie(x, y) = 1 Then
Circle (x * 150, y * 150), 50
End If

If bakterie(x, y) <> 1 Then
bakterie(x, y) = 0
End If
Next
Next

End Sub
Private Sub Command1_Click()

For x = 1 To 150
For y = 1 To 150
If bakterie(x, y) = 1 Then
tælbak = bakterie(x, y) + bakterie(-x, y) + bakterie(x, -y) + bakterie(-x, -y) + bakterie(x + 1, y) + bakterie(x - 1, y) + bakterie(x, y + 1) + bakterie(x, y - 1) + bakterie(x + 1, y + 1) + bakterie(x - 1, y + 1) + bakterie(x + 1, y - 1)
End If
If tælbak > 3 Then
Text1.Text = Str(tælbak) + Text1.Text
bakterie2(x, y) = 0
Next
Next
End If

Generator.Cls
For x = 1 To 100
For y = 1 To 100
If bakterie2(x, y) = 1 Then
Circle (x * 150, y * 150), 30
End If
Next
Next

End Sub

--------------------------------------------------------
På min form har jeg et blankt areal med en knap til at generere det første sæt af prikker og en knap til at beregne hvilke pletter der skal formere sig og hvilke der skal dø.

nu er spørgsmålet: Hvordan gør jeg det?

PS: jeg får dessuden en fejl der hedder "NEXT WITHOUT FOR" i Private Sub Command1_Click()