앞페이지에서 진행했던 ForEach 라는 Extension Method를 Lambda표현식으로
표현한 것을 AddressOf 로 별도의 프로시져를 만들고 사용해도 된다

sub ....
Q.ToList.ForEach(Sub(x)
                     TextBox2.Text &= x & ","
                 End Sub)

라고 표현한 것을 아래와 같이
Q.ToList.ForEach(AddressOf writeThis)				 
end sub

Sub writeThis(sX As String)
	TextBox2.Text &= sX & ","
End Sub