我拷贝你的程序，运行完全正确，根本不需要1楼所说的设置，因为你根本没有多行（VBCrLf）的问题。
创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于网站制作、成都网站制作、信阳网络推广、微信小程序、信阳网络营销、信阳企业策划、信阳品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供信阳建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com
一个可能的原因是你Text3太短，导致只显示了姓名，后面的年龄被挡住了。所以从这个角度来说，一楼的设置Scrollbars是必要的。
1 打开文件获取长度
2创建一个freefile
3 以读写方式打开文件
我只能说对于dat后缀的随机文件，你手动打开看是没有意义的，因为它本来就不是为了让你像TXT那样查看的。它是用Random方式打开，Put语句写入，而不是Output和Print，文件结构就不一样。
当然，可以在程序中用Get语句获取记录，把记录的某条属性（比如birth）赋给文本框，这样就还原了。dat随机文件可以只看作是用来存储数据。
如果记录的类型全是String型，这样看起来也许是没有问题的，如果包含整型、浮点型、布尔型数据，很可能你看到的是乱码。所以建议你了解一下文件的组织类型。
dat文件有很多种类型大多数情况下，.dat文件是程序使用的数据，它只是开发者为了清楚文件的意思而自己定义的。
写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")
sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() （读取文本到文本框）
Loop end if
dim data as string
open "文件名" for Random as #1'建立或打开文件
Put #1,,"数据"'写入数据(两逗号间为“记录号”，即读或写文件中的第几个数据，可省略。若指定记录号上已有数据，则原数据将被替换)
close #1'关闭文件
msgbox "数据写入成功"
open "文件名" for Random as #1'建立或打开文件
get #1,,data'读取数据(两逗号间为“记录号”，即读或写文件中的第几个数据，可省略)
close #1'关闭文件
msgbox "读取数据成功：" data '"读写验证"
'给你总结一下：这个随机文件类似于表格（像excel），每个数据都是一个单元，“记录号”就是第几个数据单元。好了，希望你能明白
