Public Class ScriptMain Public Sub Main() 'System::VariableName,System::VariableValue,System::VariableDescription Dim emptyBytes(0) As Byte Dim vName As Variable = Dts.Variables("System::VariableName") Dim vDesc As Variable = Dts.Variables("System::VariableDescription") Dim vValue As Variable = Dts.Variables("System::VariableValue") If (vName.Value().ToString.Contains("New") = True) Then Dts.Events.FireWarning(CType(vValue.Value(), Integer), vName.Value().ToString, vDesc.Value().ToString & ": " & vValue.Value().ToString, "", 0) ElseIf (vName.Value().ToString.Contains("Missing") = True) Then Dts.Events.FireError(CType(vValue.Value(), Integer), vName.Value().ToString, vDesc.Value().ToString & ": " & vValue.Value().ToString, "", 0) Else Dts.Events.FireInformation(CType(vValue.Value(), Integer), vName.Value().ToString, vDesc.Value().ToString & ": " & vValue.Value().ToString, "", 0, False) End If Dts.TaskResult = Dts.Results.Success End SubEnd Class