If <specific id> Is Nothing Then
	Dim currentID = uBound(article)
Else 
	For i=0 to UBound(articles)
		if( articles(i)(5) == <specific id>) Then
			Dim currentID = i
		End If
	Next
End If