用vb写一个可以查询.txt文件内容的程序

我有一个.txt文件,里面都是中文字对应该香港拼音的.如 :
CHI 子
CHING 精
YAM 荫
BING 冰
CHI 志
这样的格式,现在我要做的就是输入一个名字,就输出他的香港拼音如:输入张爱平,它就输出OP Cheung 张爱平 请问有什麼办法可以用vb做到啊

'需控件：Text1、Label1

Dim ctStr As String
Private Sub Form_Load()
ctStr = OpenF("C:\a.txt") '你的文件
End Sub

Private Sub Text1_Change()
Dim S As Long, I As Long, J As Long
Dim nStr As String, Str1 As String, Str2 As String

nStr = Text1.Text
For I = 1 To Len(nStr)
Str1 = Mid(nStr, I, 1)
If Str1 = " " Then GoTo Xia
S = InStr(ctStr, Str1)
If S = 0 Then
Str2 = Str2 & "？ "
Else
For J = S - 1 To 1 Step -1
If Asc(Mid(ctStr, J, 1)) < 32 Then Exit For
Next
Str2 = Str2 & Mid(ctStr, J + 1, S - J - 1)
End If
Xia:
Next
Label1.Caption = Str2
End Sub

Private Function OpenF(F As String) As String
'返回文本文件的全文
Dim H As Long, S As Long, B() As Byte

On Error GoTo Cuo
S = FileLen(F)