Which is faster? VB 6 or VB.NET?

~~~~~~~~~~~~~~~~~~~~~~~~~

Option Strict Off
Option Explicit On
Module PrimeCalc
   Private Declare Function _
   GetTickCount Lib "Kernel32" () As Integer
   Public Sub Main()
      Const MaxPrimesStored As Long = 1000000
      Dim PrimesFound As Long
      Dim Primes(MaxPrimesStored) As Double
      Dim filesys, testfile
      filesys = _
      CreateObject( _
      "Scripting.FileSystemObject")
      testfile = filesys.OpenTextFile( _
      "perftestfile.txt", 8, True)
      Dim lngStart As Double
      Dim lngFinish As Double
      Dim lngElapsed As Double
      lngStart = 0
      lngStart = GetTickCount
      testfile.writeline(lngStart)
      Dim n As Long
   Dim NumberToTest As Double
   Dim Remainder As Double
      Dim x As Long
      Dim Factor As Integer

• VB 6 or Death !!!
• Other Benchmarks
• Dan Appleman's Input
• Coding My Own Benchmark
• The Benchmark Code - Part 1
• The Benchmark Code - Part 2
• The Benchmark Code - Part 3
• And the Winner Is .....