WinCC AlarmOneLine

Dim objAlarm
Set objAlarm = ScreenItems("Control2")
'objAlarm.QuitSelected
Dim nPrio
On Error Resume Next
Dim rowIndex
rowIndex = objAlarm.GetRowCollection.Count
nPrio = objAlarm.GetRow(rowIndex).CellText(3)
If err.Number <> 0 Then
 Exit Sub
End If

If nPrio >= 0 Then  
 Dim strUserGroup, strComment, strUserName, bRet ,strUserGroups
 Redim Preserve UserMyArray(0)
 UserMyArray(0)="Verifications"
 strUserGroups = UserMyArray
 objAlarm.GetRow(rowIndex).CellText(5)
 if len(Trim(objAlarm.GetRow(rowIndex).CellText(5))) <> 0 then
 bRet = ForceComment (strUserGroups, strComment, strUserName, strUserGroup)
 If bRet Then
  Dim CurrentUser : Set CurrentUser = HMIRuntime.Tags("@NOP::@CurrentUser")
  Dim strEvent,strSrc,strArea  
  strSrc = objAlarm.GetRow(rowIndex).CellText(4)
  strEvent = objAlarm.GetRow(rowIndex).CellText(5)
  strArea = objAlarm.GetRow(rowIndex).CellText(11)
  If Trim(strSrc)= "来源" Or Trim(strEvent)= "事件" Or Trim(strSrc)= "" Or Trim(strEvent)= "" Then
   Exit Sub
  end if
   objAlarm.QuitSelected 
   CreateObjAuditTrail 1000, _    
   CurrentUser.Read,_
   strUserName,_
   strSrc,_
   strComment,_
   strEvent,_
   strArea,"","","",""        
 End If
 end if
Else
 objAlarm.QuitSelected 
End If