Imports System
Public Class Program
Public Shared Sub Main()
Dim time As String = "18:14:13"
Dim dt As DateTime = DateTime.Parse(time, System.Globalization.CultureInfo.CurrentCulture)
Console.WriteLine(dt.ToString("HH:mm:ss tt"))
End Sub
End Class
' run:
'
' 18:14:13 PM
'