Visual Basic.NET - Transpaso de Versiones

Tengo este codigo de VB 6
y nesecito migrarlo a VB.net

Este es el codigo.

'Path mas largo
Private Const MAX_PATH = 260
'Constante para el atributo de directorio
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10

Private Declare Function FileTimeToSystemTime Lib "kernel32" _
(lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Private Type SYSTEMTIME
intYear As Integer
intMonth As Integer
intDayOfWeek As Integer
intDay As Integer
intHour As Integer
intMinute As Integer
intSecond As Integer
intMilliSeconds As Integer
End Type

y esta es la parte del codigo que mas problemas me saca

Private Type SYSTEMTIME
intYear As Integer
intMonth As Integer
intDayOfWeek As Integer
intDay As Integer
intHour As Integer
intMinute As Integer
intSecond As Integer
intMilliSeconds As Integer
End Type

si alguien puede ayudarme se lo agradesco de antemano.