Which is faster? VB 6 or VB.NET?

         If Factor = 0 Then
            PrimesFound = PrimesFound + 1
            Primes(PrimesFound) = NumberToTest
            testfile.writeline(NumberToTest)
         End If
         NumberToTest = NumberToTest + 1
      Loop
      lngFinish = 0
      lngFinish = GetTickCount
      testfile.writeline(lngFinish)
      lngElapsed = lngFinish - lngStart
      MsgBox("lngElapsed: " & CStr(lngElapsed))
      testfile.writeline("lngElapsed: " _
      & CStr(lngElapsed))
      testfile.Close()
      MsgBox("done")
   End Sub
End Module
~~~~~~~~~~~~~~~~~~~~~~~~~