konstigt felmeddelande

Fick ett felmeddelande som jag inte förstår

felet

Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.

Source Error:

 

Line 139:        #End ExternalSource
Line 140:        
Line 141:        Public Sub New()
Line 142:            MyBase.New
Line 143:            Dim dependencies As System.Collections.ArrayList
 

Source File: H:\WINDOWS\Microsoft.NET\Framework\v1.0.3705\Temporary ASP.NET Files\cup\0c7e5d9e\723f92cc\ugv4-xg_.0.vb    Line: 141

Sidan jag försöker köra ser ut så här

	sub lotta(obj as object, e as eventargs)
        dim lag(6)
		          
        lag(0) = "Tibro IK"
        lag(1) = "Skövde IK"
        lag(2) = "Mariestad Bois"
        lag(3) = "Skara IK"
        lag(4) = "Leksands IF"
        lag(5) = "Hammarby IF"

		          
        dim i as integer
        Dim r As New Random()
        
        dim antal as integer = 0
        dim antal1 as integer = 0
        dim antal2 as integer = 0
        dim antal3 as integer = 0
        dim antal4 as integer = 0
        dim antal5 as integer = 0
        dim antal_matcher as integer = 100
        dim match(antal_matcher,2)
        dim match1(antal_matcher)
        dim matcher_per_lag = 5
        for i = 1 to antal_matcher
            Dim intHome As Integer = -1
            Dim intVisitor As Integer = -1
            Dim bolEqual As Boolean = True
            Do While bolEqual
                intHome = r.Next(0,6)
                intVisitor = r.Next(0,6)
                
                If intHome <> intVisitor Then
                    bolEqual = False
                End If
            Loop
            dim m as string = lag(intHome) &"-"& lag(intVisitor)
            dim m1 as string = lag(intVisitor) &"-"& lag(intHome)
            dim j as integer
            dim k as integer
            for k = 0 to i
			dim found as boolean = false
			for j = 0 to ubound(match1)
				
				if m = match1(j) or m1 = match1(j) then
					found = true
					exit for
				end if
			next
			if not found then
				
			if i = 2 then
				if not match(i-1,1) = lag(intHome) or match(i-1,2) = lag(intVisitor) then
					match1(i) = lag(intHome) &"-"& lag(intVisitor)
				end if
			elseIf i >= 3 Then
				if not match(i-1,1) = lag(intHome) or match(i-1,2) = lag(intVisitor) or match(i-2,1) = lag(intHome) or match(i-2,2) = lag(intVisitor) or match(i-3,1) = lag(intHome) or match(i-3,2) = lag(intVisitor) then
					match1(i) = lag(intHome) &"-"& lag(intVisitor)
				end if
			else
				match1(i) = lag(intHome) &"-"& lag(intVisitor)
			end if 
					response.write(i &"&nbsp;"& match1(i) & "<br />")				
			end if
			next

        next i