Something

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

If currentID Is Nothing Then
        currentID = 0
End If