Retrieve User behind completion of a workflow step (Forms & Journals) ?

Dim wfClusterPk As WorkflowUnitClusterPk = BRApi.Workflow.General.GetUserWorkflowInitInfo(si).GetSelectedWorkflowUnitClusterPk()

Dim baseWfProfileInfo As List(Of WorkflowProfileInfo) = BRApi.Workflow.Metadata.GetRelatives(si, wfClusterPk, WorkflowProfileRelativeTypes.Descendants, WorkflowProfileTypes.AllProfiles)											
If baseWfProfileInfo.Count > 0 Then
    For Each wfstep As WorkflowProfileInfo In baseWfProfileInfo										
	If wfstep.GetAttribute(myscenarioType.Id, 1300).GetValueAsInt(True) = 1 Then
            Dim tempsql As New Text.StringBuilder												 
            Dim tempdt = New DataTable("dataTableResult")												 
            tempsql.AppendLine("SELECT *")											 
            tempsql.AppendLine("FROM TaskflowStepLog")											 
            tempsql.AppendLine("WHERE TaskflowStepLog.Reason = 'InputForms'")												 
            tempsql.AppendLine("AND   TaskflowStepLog.Wfk = '" & wfstep.ProfileKey.ToString & "'")											 
            tempsql.AppendLine("AND   TaskflowStepLog.Wsk = '" & wfPk.ScenarioKey.ToString & "'")											 
             tempsql.AppendLine("AND   TaskflowStepLog.Wtk = '" & wfPk.TimeKey.ToString & "'")											 
             tempsql.AppendLine("ORDER BY TaskflowStepLog.InstanceTimeStamp Desc")
											
											 
             Using dbConnApp As DBConnInfoApp = BRAPi.Database.CreateApplicationDbConnInfo(si)
                 tempdt = BRApi.Database.ExecuteSql(dbConnApp, tempsql.ToString, False)											 
             End Using									
											 
             Dim lastCompleteFormUserName As String = "To Be Determined"											 
             Dim lastRevertFormUserName As String = "To Be Determined"											 
             Dim lastCompleteTime As Date = Date.MinValue											 
             Dim lastRevertTime As Date = Date.MinValue										 
             If tempdt.Rows.Count > 0 Then											 
             Dim CompleteuserID As Guid = tempdt.AsEnumerable().Where(Function(x) x("InstanceStatus") = 2).Select(Function(x) x("UserID")).FirstOrDefault()												 
             Dim lastCompleteSecurityUser As UserInfo = BRApi.Security.Authorization.GetUser(si, CompleteuserID)	
												 
             Dim RevertuserID As Guid = tempdt.AsEnumerable().Where(Function(x) x("InstanceStatus") = 1).Select(Function(x) x("UserID")).FirstOrDefault()												 
             Dim lastRevertSecurityUser As UserInfo = BRApi.Security.Authorization.GetUser(si, RevertuserID)											
												 
             If Not lastCompleteSecurityUser Is Nothing Then
													 
                  lastCompleteFormUserName = lastCompleteSecurityUser.User.Name													 
                  lastCompleteTime = tempdt.AsEnumerable().Where(Function(x) x("InstanceStatus") = 2).Select(Function(x) x("InstanceTimeStamp")).FirstOrDefault()
												 
              End If		
												 
              If Not lastRevertSecurityUser Is Nothing Then													 
                   lastRevertFormUserName = lastRevertSecurityUser.User.Name													 
                   lastRevertTime = tempdt.AsEnumerable().Where(Function(x) x("InstanceStatus") = 1).Select(Function(x) x("InstanceTimeStamp")).FirstOrDefault()												 
               End If
           End If
      Next wfstep
End If