Visual Basic

Dim FilePath As String = ("C:/HMSfiles/PPFiles/")
                
Dim fs As New FileStream("'" & FN & "'.txt", FileMode.CreateNew, FileAccess.Write)
Dim s As New StreamWriter(fs)
pretestcatch = pretestTA.Text
posttestcatch = posttestTA.Text

s.WriteLine("PRE TEST PRECAUTIONS:")
s.NewLine = ""
s.Write(pretestcatch)

s.WriteLine("POST TEST PRECAUTIONS:")
s.NewLine = ""
s.Write(posttestcatch)
s.Close()

' ... the Interface
Public Interface IPluginInfo
    Event MyButtonClicked As EventHandler
    Sub Process()
    ReadOnly Property Name() As String
End Interface

' ... the MDI Application
Public Class MainAppPluginhandler
    Private pluginInfo As IPluginInfo

    Public Sub New()

        (...creating an instance of IPluginInfo here)

        Try
            AddHandler pluginInfo.MyButtonClicked, AddressOf pluginInfo_ButtonClicked

            Trace.WriteLine(String.Format("+ Handler for PlugIn {0} installed in MDIForm.", pluginInfo.Name))
            pluginInfo.Process()
        Catch ex As Exception
        End Try
    End Sub

    Private Shared Sub pluginInfo_ButtonClicked(ByVal sender As Object, ByVal e As EventArgs)
        Trace.WriteLine("+ Event 'ButtonClicked' received by PlugInHandler!")
    End Sub

End Class

' ... and the plugin class
Public Class MyPlugin
    Implements IPluginInfo

    Public Event MyButtonClicked(ByVal sender As Object, ByVal e As System.EventArgs) Implements IPluginInfo.MyButtonClicked
    
    Private Sub OnMyButtonClicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click
        RaiseEvent MyButtonClicked(Me, Me, EventArgs.Empty)
        Trace.WriteLine("+ Event MyButtonClicked raised.")
    End Sub

    Public Sub Process() Implements IPluginInfo.Process
        Trace.WriteLine("+ Function 'Process' started in MyPlugin... wait 2 seconds.")
        Thread.Sleep(2000)
        Trace.WriteLine("+ Event MyButtonClicked' raised in MyPlugin.")
        RaiseEvent MyButtonClicked(Me, EventArgs.Empty)
    End Sub
End Class