This is an example on how to use the girder.dll com server from
VBA.

Private Sub Girder_Test()
   
    Dim GirderEventLib As GIRDERLib.GirderEvent
    Dim a(2) As String
    Dim b(0 To 1) As Byte
   
    a(0) = "Payload 1"
    a(1) = "Payload 2"
    a(2) = "Payload 3"
    b(0) = 5
    b(1) = 25
   
    Set GirderEventLib = New GirderEvent
   
    On Error GoTo ErrLabel:
   
      GirderEventLib.SendEventSimple "Event1-Simple", 18
      GirderEventLib.SendEvent "Event2-Normal", 18, a
      GirderEventLib.SendEventFull "Event3-Full", 18, a, b
     
    Exit Sub
   
ErrLabel:
       
   Select Case Err.Number
   
   Case -2147483647 ' input devices not enabled
   
      Debug.Print "Input device not enabled"
     
     
   Case -2147483648# ' girder not running
     
      Debug.Print "Girder not Running"
     
   Case Else
   
      Err.Raise Err.Number, Err.Source, Err.Description, _
                    Err.HelpFile, Err.HelpContext
                   
   End Select
   
End Sub 