Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '        String [] pictureFiles = new String[200];
        Dim fileNameToFind As String
        fileNameToFind = Textbox1.text '<--
        Dim currentDirectory As String
        Dim strVector() As String
        Dim fileName As String

        Try
            currentDirectory = TextBox2.Text '<--

            ' Let's see the directory we are searching
            MessageBox.Show(currentDirectory)
            If (System.IO.Directory.Exists(currentDirectory)) Then
                ' Get all the files in the directory
                strVector = System.IO.Directory.GetFiles(currentDirectory)
                Dim i As Int16
                Do
                    ' Cut down the file to only it's name (eliminate the path)
                    fileName = strVector(i).Substring(strVector(i).LastIndexOf("\") + 1)
                    ' Does the name match with the one we are looking for?
                    If (fileName.Equals(fileNameToFind)) Then
                        MessageBox.Show(fileNameToFind + " was found at position " + i.ToString() + " in " + currentDirectory)
                    End If
                    i = i + 1
                Loop Until (i >= strVector.Length)

            End If

        Catch ex As Exception
            MessageBox.Show(ex.ToString())


        End Try

    End Sub