Imports System

​

Public Module Module1

    Public Sub Main()

        Dim utc As String = DateTime.UtcNow

        Dim dt As DateTime = DateTime.SpecifyKind(DateTime.Parse(utc), DateTimeKind.Utc)

        Console.WriteLine(dt.ToString())

    End Sub

End Module