Dim loDirectory As New DirectoryInfo(Input.Text) Dim loFileList As FileInfo() = loDirectory.GetFiles("*.xml") Dim loFile As FileInfo Try ' Get all the files in this one For Each loFile In loFileList lcFile = Input.Text + "\" + loFile.Name Next Catch loError As Exception lnEnd = Date.Now.Ticks lcHTMLLocal = "" lcHTMLLocal = lcHTMLLocal + "<TR VALIGN=TOP>" lcHTMLLocal = lcHTMLLocal + "<TD>Sending " + Input.Text + "\" + loFile.Name End TryThe message is "Variable 'loFile' is used before it has been assigned a value. A null reference exception could result at runtime".