填空题：设窗体上有一个名称为CDl的通用对话框、一个名称为Textl的文本框和一个名称为Commandl的命令按钮。程序执行时，

设窗体上有一个名称为CDl的通用对话框、一个名称为Textl的文本框和一个名称为Commandl的命令按钮。程序执行时，单击Commandl按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文字文件，并读人一行文本，显示在Textl中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click()
CD1.Filter=“文本文件|*.txt|Word文档|*.doc”
CDl.FilterIndex=1：CD1.ShowOpen
IfCD1.FileName<>“” Then
Open【9】For Input As #1
Line Input#1，ch$
Close#1：Text1.Text= 【10】
End If
End Sub