2005重すぎて死ねる

ギガヘルツマシンがほしい

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim fs As New System.IO.StreamReader(Me.MaskedTextBox1.Text, System.Text.Encoding.GetEncoding("Shift_JIS"))
        Dim st As String
        Dim Rog() As String
        Dim i As Integer = 0

        Do

            st = fs.ReadLine()
            If st Is Nothing Then
                Exit Do
            End If

            ReDim Preserve Rog(i)
            Rog(i) = st
            i += 1

        Loop

        st = ""

    End Sub