Imports System
Public Module Module1
Public Sub Main()
Dim datex = "Image2015021400122067"
Dim dt = DateTime.ParseExact(datex, "'Image'yyyyMMddhhmmssff", Nothing)
Dim s1 = dt.Date.ToString("yyyy-MM-dd")
Console.WriteLine(s1)
Dim s2 = dt.ToString("HH:mm:ss")
Console.WriteLine(s2)
Dim s3 = dt.ToString("ff")
Console.WriteLine(s3)
End Sub
End Module