彈出下垃框 + VB讀文件

'VBscript彈出下垃框
Sub SelectBut(str)
 ProName="P_requir_edu_List"
  ReValue=ShowModalDialog("P_Find_Sel.asp?Findtype="&Str&"&ProName="&ProName,window,"help=no;dialogtop="& window.event.y+95 &";dialogleft="& window.event.x+5 &";dialogheight=300px;dialogwidth=250px")
 If ReValue<>"" Then
  window.navigate "P_requir_edu_list.asp?FindStr="& ReValue &"&Findtype="& Str
 End if
 End Sub

'VB讀文件

Private fs As New FileSystemObject  'Microsoft Scripting runtime

Private dbDll As New pubdb

function selectSql(mapStr)
 Dim count As Integer
    If fs.FileExists(App.Path & "/input.txt") Then
        Set txtf = fs.OpenTextFile(App.Path & "/input.txt", ForReading, True)
        Do While Not txtf.AtEndOfStream
            count = count + 1
            str1 = txtf.ReadLine
            v = Split(str1, ";")
            For i = 0 To UBound(v)
                selectSql = v(i)
            Next i
        Loop
    End If
End Function