様々なご指摘ありがとうございます。
ループの中を一つずつ確認できたおかげで何が問題だったのか確認できました。
int32とintegerの使い分けは特に意味はありません。
参考にさせて頂いたサイトのプログラムを自身のプログラムに流用させる際に
修正し忘れいていただけです。
もう一つ分からず解決出来ないことがあり質問を書き忘れたのですが、
データグリッドビューにテキストボックスで入力した内容（技術不足の為、項目ごとにデータをセルにボタンクリックで送信しています）を反映させる際に、
        Me.DataGridView1.Rows.Add(TextBox1.Text, NumericUpDown1.value,TextBox2.Text)
のようなコードでグリッドビューに反映させているのですが、一部分の文字の色を変化させたい
場合は、どういった記述で変化させられるのでしょうか。
例えば、if文による判定文でAの場合は'X'(文字色は赤)、Bの場合は'Y'(文字色青)とし、
判定の結果Aだったので 
Dim s1 As String = 'X'と定義し、 s1 = Color.Redとしようとすると、
型'color'の値を'string'に変換できないと出ます。