请教一下VB中实现文件打开的代码中的一些问题

Question

下面是我编的程序中的一段代码，用菜单实现文件打开，可是出现两个问题请大侠帮忙看一下，给点意见：
一、为什么只能打开TXT文件啊，按照我设计的应该还可以打开Word、PPT等文件啊，为什么打开这些文件时只在文本框中显示“邢唷?”。
二、我打开的TXT文件也只能是很小的文件，当大于64KB时就打不开，直接卡死。有人说我的TextIn变量只能容纳64KB，那请问我想设计成能打开很大文件的，应该怎么做啊，不用Word里的插件。
求求大侠们了，我在线等，很急！！！
Private Sub Open_Click()
Dim TextIn As String
CommonDialog1.CancelError = True
On Error GoTo Errhandler
CommonDialog1.Filter = "All Files(*.*)|*.*|PowerPoint(*.ppt)|*.ppt|Text (*.txt)|*.txt|word文档(*.doc)|*.doc"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
   Line Input #1, TextIn
   Text1.Text = Text1.Text + TextIn + vbCrLf
   Loop
   Close #1
Errhandler:
   Exit Sub
End Sub

Answer 1

不是你想面包，面包就会从天上掉下砸在你头上，你得有钱，还得去买。

Answer 2

我那段代码能够实现打开文件的功能，但有些问题，希望大侠们给点意见。