vb提取text指定行指定内容

求各位大神指教，VB怎么实现弹出对话框并添加TEXT文件然后读取某行指定内容，本人小白
例如下列数据：

姓名张三性别男
班级4班学号7754身高177
爱好篮球游泳

我要提取第一行的张三和男，第二行的4班和7754还有177以及第三行的篮球游泳

Dim arr() As String = File.ReadAllLines("文本文件名.txt", Encoding.UTF8) '如果是别的编码，可以换编码那个参数
MsgBox(arr(3)) '第4行，从0开始编号是3