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