public class Test public Shared Sub Main Dim dteExpiration As Date dteExpiration = "July 2, 2002" Console.WriteLine(dteExpiration) End SubEnd class 02/07/2002 12:00:00 AM