Чтение из файла Visual Basic

[Dequick]

Имеется вот такой код, но возникли небольшие проблемы:

Option Explicit On
Imports System.math, System.IO ', System.Text, Microsoft.VisualBasic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sr As New IO.StreamReader("test.txt")
        Dim nxtln, tmp As String
        Dim strk(256) As String
        Dim i, j As Byte
        Dim array(255, 255) As Integer
        Dim a, b As Integer
        i = 0
        j = 0
        a = 1
        b = 1
        nxtln = " "
        Do While sr.Peek() >= 0
            nxtln = sr.ReadLine()
            tmp = " " & nxtln & " "
            j = 0
            a = 1
            b = 1
            a = InStr(1, tmp, " ")
            Do
                b = InStr(a + 1, tmp, " ")
                array(i, j) = Val(Mid(tmp, a + 1, b - a - 1))
                a = b
                j = j + 1
            Loop Until a >= Len(tmp) - 1
            i = i + 1
        Loop
        sr.Close()
        tb_m.Text = i : a = i
        tb_n.Text = j : b = j
        For i = 0 To i - 1
            For j = 0 To j - 1
                tb1.Text += array(i, j) & " "
            Next j
            tb1.Text += vbCrLf
        Next i
    End Sub
End Class

1. Программа считывает из файла test.txt 2-мерный массив(строки с числами через пробел). Если в текстовом файле массив 6 на 6, то для него требуется объявить масиив 5 на 5, цикл с условием выполняется лишний раз и получается, что треб-ся массив уже 6 на 6. В общем я так понял, что требуется поправить условие выхода из цикла, чтобы цикл выполнялся ровно столько раз сколько это нужно.
2. Использую бесплатный для студентов VB 2005 EE, как измерить скорость выполнения программы, в паскале, например, компилятор выдавал время выполнения в мс.
еще вопросик по поводу оптимизации этой ерундовины...

[Dequick]

Вопрос снят