Writing the Visual Basic Program

Option Explicit
Public Revelation As Revelation
Private Sub Command1_Click()
Dim Engine As RevSoftLib.IEngine
' Declare variables
Dim Result As Long
Dim Queue As Object
Dim strCmd As String
Dim RetVal As String
Dim myName As String
  
  'Create the core Revelation object.
  Set Revelation = New Revelation
  Result = Revelation.CreateEngine(Engine, ":777", "SYSPROG", 0, 0)
  MsgBox "Result after CreateEngine = " & Result
  DoEvents
  
  If Result = 0 Then
  
    'Create an active Queue.
    Result = Engine.CreateQueue(Queue, "777", "LAB", "LAB")
    MsgBox "Result after CreateQueue Method = " & Result
    If Result = 0 Then
    
      'Call a Basic+ function...
      Dim ReturnValue As String
       
      Result = Queue.CallFunction(ReturnValue, "VB_READ_ROW", "GRANTS", "AIRFORCE")
      MsgBox "AIRFORCE GRANT RECORD = " & ReturnValue
      
      myName = "Ira Krakow"
      Result = Queue.CallSubroutine("OI_CHANGE_NAME", myName)
      MsgBox "After CallSubroutine, Name = " & myName
      
      Queue.CloseQueue
    End If
    Engine.CloseEngine
  End If
Set Queue = Nothing
Set Engine = Nothing
Set Revelation = Nothing
End Sub