'Este exemplo mostra como formatar a hora atual
'usando o método ToString

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now

    'formata a hora usando o método ToString
    Dim formatada = agora.ToString("T")

    'exibe o resultado
    Console.WriteLine("Agora são: " & formatada)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module

Informe o 1º valor: 5
Informe o 2º valor: 1
Informe o 3º valor: 20
Informe o 4º valor: 6
Informe o 5º valor: 3
Informe o 6º valor: 4
Informe o 7º valor: 7
Informe o 8º valor: 12
Informe o 9º valor: 9
Informe o 10º valor: 8

O maior valor lido foi: 20
O menor valor lido foi: 1