やたらめったらチェックイン

Imports System.io
Imports System.Text.Encoding

Public Class Form1

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

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

        Do While Not st Is Nothing
            ReDim Preserve Rog(i)
            Rog(i) = st
            i += 1
            st = fs.ReadLine()
        Loop

        st = nothing

    End Sub

End Class