Private Sub SetAndGetFileTimesDemo()
     Dim FileName As String
     Dim dt1, dt2, dt3, dta, dtb, dtc As DateTime
     Dim sdx1 As String
     ' Create some arbitratry but specific dates 
     dt1 = New DateTime(2017, 4, 19, 15, 27, 30) ' 3:27:30 PM
     dt2 = New DateTime(2017, 4, 19, 15, 28, 30) ' 3:28:30 PM
     dt3 = New DateTime(2017, 4, 19, 15, 29, 30) ' 3:29:30 PM
     ' creates both the name and file of zero length
     FileName = System.IO.Path.GetTempFileName
     sdx1 = String.Format("Temp file name = {0}", FileName)
     Console.WriteLine(sdx1)
     IO.File.SetCreationTime(FileName, dt1)
     IO.File.SetLastAccessTime(FileName, dt2)
     IO.File.SetLastWriteTime(FileName, dt3)
     dta = IO.File.GetCreationTime(FileName)
     dtb = IO.File.GetLastAccessTime(FileName)
     dtc = IO.File.GetLastWriteTime(FileName)
     sdx1 = String.Format("Creation time = {0}",dta) 
     Console.WriteLine(sdx1)
     sdx1 = String.Format("Last access time = {0}",dtb)
     Console.WriteLine(sdx1) 
    |sdx1 = String.Format(" Last write time = {0}", dtc)
     Console.WriteLine(sdx1)
 End Sub

Output:

Temp file name = C:\Users\John\AppData\Local\Temp\tmpBBE2.tmp
Creation time = 4/19/2017 3:27:30 PM 
Last access time = 4/19/2017 3:28:30 PM 
Last write time = 4/19/2017 3:29:30 PM