Private Function CreateQueue(ByVal context As ActivityExecutionContext) As WorkflowQueue
Console.WriteLine("CreateQueue")
Dim qService As WorkflowQueuingService = context.GetService(Of WorkflowQueuingService)()
If Not qService.Exists(Me.queueName) Then
qService.CreateWorkflowQueue(Me.queueName, True)
End If
Return qService.GetWorkflowQueue(Me.QueueName)
End Function