Dim SignatureStateTag : Set SignatureStateTag = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.lSignatureState")
Dim SignatureStateBefore : SignatureStateBefore = SignatureStateTag.Read

Dim strNewSpeed : Set strNewSpeed = HMIRuntime.Tags("Motor3_NewSpeed")
Dim strCurSpeed : Set strCurSpeed = HMIRuntime.Tags("Motor3_CurrentSpeed")
Dim strOldVal : Set strOldVal = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.strOldVal")
Dim strNewVal : Set strNewVal = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.strNewVal")

strOldVal.Write strCurSpeed.Read, 1
strNewVal.Write strNewSpeed.Read, 1
'open SIMATIC Logon Electronic Signature dialoge
Init_SLEsig_Dlg "eSig_Electronic_Signature_1_Motor_Start_Stop3"

'Check the signature state - 0=no signature added/1=part of signatures are added/2=signature is complete
If ( (SignatureStateTag.Read = 2) And (SignatureStateBefore <> 2) ) Then

   '################################################
   ' add your own code here
   '################################################
 Dim Motor4 : Set Motor4 = HMIRuntime.Tags("Motor3")
 Dim CurrentUser : Set CurrentUser = HMIRuntime.Tags("@CurrentUser")
 Dim strArea : Set strArea = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.strArea")
 Dim strObjName : Set strObjName = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.strObjName")
 Dim strOperation : Set strOperation = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.strOperation")
 Dim strUnit : Set strUnit = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.strUnit")
 Dim strEventID : Set strEventID = HMIRuntime.Tags("eSig_Electronic_Signature_1_Motor_Start_Stop3.strEventID")
 
 If Motor3.Read = 1 Then
  Motor3.write 0
 Else
  Motor3.write 1
 End If
 
 CreateObjAuditTrail 5000, _    
      CurrentUser.Read,_ 
      strArea.Read,_
      strObjName.Read,_
      strOperation.Read,_
      "",_
      strNewVal.Read,_
      strOldVal.Read,_
      strUnit.Read,_
      strEventID.Read

   'Reset the rest of the eSignature parameters
   ResetESignatureParam "eSig_Electronic_Signature_1_Motor_Start_Stop3"
   'Write back current values
   strCurSpeed.Write strNewSpeed.Read, 1
End If

End Sub