VBA Code:
VarTypeIndex = 0
For Index = zPRJ.VarTypes.Count - 1 To 0 Step -1
Name = zPRJ.VarTypes.Item(Index).Name
If Right(Name, 13) = ".InternalData" Or _
Right(Name, 9) = ".MathData" Or _
Right(Name, 9) = ".NodeData" Or _
Right(Name, 13) = ".WriteTrigger" Then
VarTypeID(VarTypeIndex) = CInt(zPRJ.VarTypes.Item(Index).ID)
VarTypeIndex = VarTypeIndex + 1
End If
Next Index

For Index = zPRJ.Variables.Count - 1 To 0 Step -1
Set zVAR = zPRJ.Variables.Item(Index)
Name = zVAR.Name
ID = zVAR.DynProperties("ID_DataTyp")
For Index2 = 0 To VarTypeIndex - 1
If ID = VarTypeID(Index2) Then
If Name <> "ICON2K" And _
Name <> "ICON2Ki" And _
Name <> "ICON2Km" And _
Name <> "ICON2K.WriteTrigger" And _
Name <> "NET" And _
Name <> "NETi" And _
Name <> "ROUTERA" And _
Name <> "ROUTERAi" And _
Name <> "ROUTERB" And _
Name <> "ROUTERBi" And _
Name <> "LOOPi" And _
Name <> "LOOPm" Then
If zPRJ.Variables.DeleteVar(Name) = False Then
AddLogInfo "Variable: " & Index & " " & Name & " error while deleting"
End If
AddLogInfo "Variable: " & Index & " " & Name & " deleted"
End If
Exit For
End If
Next Index2
Next Index