Thank you all for your help, 'Paul Beddows' got it right.
this is the script from my XP macro
Range("A1:D30").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("D1") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _...