Weird...Try this one then. It works with your above example. Returns 1 and -1.

 Code:
Function CVS($_Version1, $_Version2)
 
  Dim $_X, $_Max
 
  $CVS = 0
 
  $_Version1 = Split($_Version1, '.')
  $_Version2 = Split($_Version2, '.')
 
  $_Max=IIf(UBound($_Version1)>UBound($_Version2),UBound($_Version1),UBound($_Version2))
  ReDim Preserve $_Version1[$_Max]
  ReDim Preserve $_Version2[$_Max]

  For $_X = 0 to $_Max
    Select
     Case CInt($_Version1[$_X]) < CInt($_Version2[$_X])
      $CVS=1  Exit 0
     Case CInt($_Version1[$_X]) > CInt($_Version2[$_X])
      $CVS=-1 Exit 0
    EndSelect
  Next
 
  Exit 0

EndFunction