.NET Fiddle

VbNet · Console

/Program.vb

Imports System
				
Public Module Module1
	Public Sub Main()
		'uma data qualquer
		Dim DataValor As New DateTime(2008, 6, 15, 21, 15, 7)

		'formatos standard(padrões)
		Dim standardFmts As String() = {"d", "D", "f", "F", "g", "G", _
			"m", "o", "R", "s", "t", "T", _
			"u", "U", "y"}

		'Exibindo a data usando todos os formatos standard	
		For Each standardFmt As String In standardFmts
		Console.WriteLine("{0}: {1}", standardFmt, DataValor.ToString(standardFmt))
	Next
	Console.WriteLine()

	'formatos customizados
	Dim customFmts As String() = {"h:mm:ss.ff t", "d MMM yyyy", "HH:mm:ss.f", "dd MMM HH:mm:ss", "\Mon\t\h\: M", "HH:mm:ss.ffffzzz"}

	'exibindo a data em formatos customizados
	For Each customFmt As String In customFmts
	Console.WriteLine("'{0}': {1}", customFmt, DataValor.ToString(customFmt))
Next

	End Sub
End Module