VS 2010 Compiling scripts.

Public Sub MakeAvailableScripts(ByRef pCharacter As Character)
        If mAvailableNPCScripts Is Nothing Then
            mAvailableNPCScripts = New Dictionary(Of String, INpcScript)
        Else
            mAvailableNPCScripts.Clear()
        End If
        Dim results As CompilerResults
 
        Dim FilesNeedingRecompiling As List(Of String) = ScriptDataChecker.GetFilesNeedingRecompiling()
 
        For Each filename As String In Directory.GetFiles("C:\Scripts", "*.vb")
            Dim fi As FileInfo = New FileInfo(filename)
 
            results = Scripting.CompileScript(filename)
            If results.Errors.Count > 0 Then
                If pCharacter IsNot Nothing Then
                    MessagePackets.SendMessage(pCharacter, 1, "Couldn't compile the file (" & fi.Name & ") correctly.")
                    For Each _error As CompilerError In results.Errors
                        MessagePackets.SendMessage(pCharacter, 1, "Line " & _error.Line.ToString & ", Column " & _error.Column.ToString & ": " & _error.ErrorText & ".")
                    Next
                Else
                    Logger.writeLog(LogTypes.Error_, "Couldn't compile the file (" & fi.Name & ") correctly.")
                    For Each _error As CompilerError In results.Errors
                        Logger.writeLog(LogTypes.Error_, "Line " & _error.Line.ToString & ", Column " & _error.Column.ToString & ": " & _error.ErrorText & ".")
                    Next
                End If
 
            Else
                If pCharacter IsNot Nothing Then
                    MessagePackets.SendMessage(pCharacter, 1, "Compiled " & fi.Name & "!")
                Else
                    Logger.writeLog(LogTypes.Info, "Compiled {0}!", fi.Name)
                End If
                mAvailableNPCScripts.Add(fi.Name.Replace(".vb", ""), CType(Scripting.FindInterface(results.CompiledAssembly, "INpcScript"), INpcScript))
            End If
 
            fi = Nothing
        Next
 
        ScriptDataChecker.GenerateNewScriptHashes()
    End Sub

Public Shared Function CompileScript(Source As String) As CompilerResults
        Dim compiler As CodeDomProvider = CodeDomProvider.CreateProvider("CSharp")
        Dim parms As New CompilerParameters
 
        parms.GenerateExecutable = False
        parms.GenerateInMemory = True
        parms.IncludeDebugInformation = False
        parms.ReferencedAssemblies.Add("System.dll")
        parms.ReferencedAssemblies.Add(Assembly.GetExecutingAssembly().Location)
 
        Return compiler.CompileAssemblyFromFile(parms, Source)
    End Function
 
    Public Shared Function FindInterface(DLL As System.Reflection.Assembly, InterfaceName As String) As Object
        ' Loop through types looking for one that implements the given interface
        For Each t As Type In DLL.GetTypes()
            If t.GetInterface(InterfaceName, True) IsNot Nothing Then
                Return DLL.CreateInstance(t.FullName)
            End If
        Next
 
        Return Nothing
    End Function

Public Class NpcScript
    Inherits INpcScript
 
    Public mHost As IHost
 
    Public Sub Init(host As IHost)
        mHost = host
    End Sub
 
    Public Sub Run(character As Character, State As Byte, Answer As Byte, StringAnswer As String, IntegerAnswer As Integer)
        If State = 0 Then
            mHost.SendOK("It is a fine day for laundry. Wouldn't you agree?")
        Else
            mHost.Stop_()
        End If
    End Sub
End Class