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

If Len(strJnts) > 0 Then
    _gblString = CreateGUIDString()

    gblConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\JWI\Data\JWI.mdb;Jet OLEDB:Database Password=jWi;")

    strData = "INSERT INTO LOLItems (LOLItemsID, LOLIFormID, Type, TextBox, MaterialsID, Units, DateCreated )" _
    & " VALUES ('" & _gblString & "',  " _
    & "'" & _frmGuid & "', '" _
    & 1 & "',' " _
    & strName & "',' " _
    & _MATGuid & "',' " _
    & strJnts & "',' " _
    & Now() & "');"

    gblCMD.Connection = gblConn
    gblCMD.CommandText = strData
    Dim cmd As New System.Data.SqlClient.SqlCommand

    gblConn.Open()
    gblCMD.ExecuteNonQuery()
End If