Problem when doublclicking a listbox

       
   Public Test As String
    Public wtt As Integer
  Public WD As String
    Public Stest As String

Private Sub ListBox7_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox7.DoubleClick
        WD = ""
        Stest = ""
        FindDate = ""
        BrowserState = "PrevBulletin"
        OpenHead = "Bulletin"
        FindDate = ListBox7.SelectedItem.ToString
        Zfinder(FindDate, "-")
        FindDate = WD
        FoundTime = Stest
        FoundTime = Replace(FoundTime, " ", "", 1)
        FoundTime = Replace(FoundTime, "AM", "", 1)
        FoundTime = Replace(FoundTime, ":", "", 1)
        Zfinder(FindDate, " ")
        FindDate = WD
        FoundDate = Stest
        FoundDate = Replace(FoundDate, " ", "", 1)
        FoundDate = Replace(FoundDate, "/", "", 1)
        GetBulletin = FoundDate & FoundTime
        WebBrowser1.Navigate("http://soulmagazine.freehostia.com/Data/" & GetBulletin & ".txt")
    End Sub

Public Sub Zfinder(ByVal File As String, ByVal look As String)
        On Error GoTo oppsaerror

        Do Until Left(Test, 1) = look
            wtt = wtt + 1
            If wtt > 500 Then Exit Sub
            Test = Right(File, wtt)
        Loop
       
        Stest = Right(Test, Len(Test) - 1)
        On Error GoTo exb
        If File = Test Then GoTo exb
        WD = Left(File, Len(File) - Len(Test))

exb:
        Exit Sub
oppsaerror:


        Select Case Err.Number
            Case 13
                MsgBox("Error while using Zfinder - Type mismatch")
            Case Else
                MsgBox("Error while using Zfinder" & Err.Description, vbCritical)
        End Select


        Exit Sub


    End Sub