求助：VB如何调用外部文件（.txt）的代码

在网上找一天，实在是没办法了，请各位高手出把手吧
下面是我的外部文件代码 YH_loupen.txt<<<<<<<<<<<<<</BEGIN-GLOBALE-VARIABLES/>>>>>>>>>>>
'Simply define globle variables here without using "Dim"IJ_Inputs
<<<<<<<<<<<<<</END-GLOBALE-VARIABLES/>>>>>>>>>>>>>-------------</BEGIN-PRE-PROCESS/>----------------ReDim IJ_Inputs(8)
-------------</END-PRE-PROCESS/>------------------*************</BEGIN-POST-PROCESS/>***************Erase IJ_Inputs*************</END-POST-PROCESS/>*****************=============</BEGIN-VBSCRIPT-CORE/>==============
Dim i, Err,k,DV_Temp,Temp
Dim ErrFlag
Dim D
Dim ErrString'***password****
    Dim modType
    Dim allValue
    Dim sdrValue
    Dim addDEcryptVale
    Dim pw(8)
    Dim sourceValue
    Dim j
    Dim break
    for i = 1 to 8
        pw(i) = 0
    next
'**************'*****赋初值*****
k = 0
Temp = ""
DV_Temp = ""
ErrFlag = ""
Err = 0
i = 0
D = ""
ErrString = ""
'*****/赋初值*****D = Mid(IJ_Data, 1, 4)
if D <> "Wait" then
'*****赋值*****
'daima
IJ_Inputs(0) = Mid(IJ_Data, 1, 12)
'haoma
IJ_Inputs(1) = Mid(IJ_Data, 13, 8)
'mima
IJ_Inputs(2) = Mid(IJ_Data, 21, 8)'*****/赋值*****'******
    sourceValue = IJ_Inputs(2)
    sdrValue = "76943576"
    modType = 11
    addDEcryptVale = ""
    break = "*"
    
    For j = 1 To Len(sourceValue)
    
        'isEven = False
        For i = j To Len(sourceValue)
        
            pw(j) = pw(j) + Mid(sourceValue, j, 1) * Mid(sdrValue, i, 1)
     
        Next
        pw(j) = modType - CInt(pw(j) Mod modType)
    
        If pw(j) = 11 Then
            pw(j) = 5
        ElseIf pw(j) = 10 Then
            pw(j) = 0
        End If
        
        addDEcryptVale = addDEcryptVale  + CStr(pw(j))
       
    Next
 
'*******'*****PIAO1*****Err = 0
ErrFlag = ""
'**DAIMA**for i=0 to 0
 DV_Temp = DVInputs(i)
 Temp = Replace(DV_Temp, "?", "")
 k = Len(DV_Temp) - Len(Temp)
 if k > 2 OR Len(DVInputs(i)) < 11 then
      ErrFlag = ErrFlag + "D"
      Err = 1 
 end if
next'**HAOMA**for i=1 to 1
 DV_Temp = DVInputs(i)
 Temp = Replace(DV_Temp, "?", "")
 k = Len(DV_Temp) - Len(Temp)
 if k > 3 OR Len(DVInputs(i)) < 6 then
      ErrFlag = ErrFlag + "H"
      Err = 1 
 end if
next'**MIMA**for i=2 to 2
 DV_Temp = DVInputs(i)
 Temp = Replace(DV_Temp, "?", "")
 k = Len(DV_Temp) - Len(Temp)
 if k > 3 OR Len(DVInputs(i)) < 6 then
      ErrFlag = ErrFlag + "M"
      Err = 1 
 end if
next'**LOG**if Err = 1 then
   NHits = 0
   NMiss = 1
   ErrString = ErrString + IJ_Inputs(1) + ErrFlag
end if'*****/PIAO1*****
'**SHUIWU**
 
if NMiss = 1 then
   LogString = break + IJ_Inputs(1) + break + addDEcryptVale + break + ErrString
else
   LogString = break + IJ_Inputs(1) + break + addDEcryptVale 
end ifend if=============</END-VBSCRIPT-CORE/>================