vb中的CommonDialog有关问题

vb中的CommonDialog问题
怎样用CommonDialog打开TXT文件并显示在RichTextBox，我写了个程序，可是英语中的符号显示不不来，只有一个空格，求各位大虾改正。不胜感激
Private Sub Command1_Click()
Dim temp As String
Dim all As String
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #2
Do While Not EOF(2)
Input #2, temp
all = all & temp
Loop
Close #2
RichTextBox1.Text = all
  '窗体标题栏上显示显示打开的文件名
  Dim strPath
  Me.Caption = "文本 " & CommonDialog1.FileName
  strPath = CommonDialog1.FileName
  Exit Sub
End Sub

[解决办法]
不要用全角字符例如＆＄(半角模式为&$),vb的属性只支持uncode编码.