新建From1（窗体），新建Command1（按钮CommandButton），Text1（TextBox，MultiLine选True，ScrollBars选2）代码：

Private Sub Command1_Click()
    Open App.Path & "\manongku.txt" For Binary As #1
        Text1.Text = Input(LOF(1), #1)
        'Text1.Text = StrConv(InputB$(LOF(1), #1), vbUnicode) '也可以按字节读取
    Close #1
End Sub

在当前目录放一个manongku.txt然后运行程序。记得用ANSI格式。比如内容是：

MaNongKu.com
码农库
东西好呀，
真的好！