テキストボックスに文字が入力されたときに負の値が入ったときにメッセージが出るようにするには
下記のようにするといいと思うんですけれども、

    Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
        If CStr(TextBox1.Text) <= 0 Then
            MsgBox("0か負の値がはいっています")
        End If

たとえば、テキストボックスの数がいくつもあってそのすべてに上記のコードを適応させるにはどうすればいいですか？