Dim a As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\s.txt") Dim p() As String = a.Split(vbNewLine) TextBox1.Text = p(1)