Visual Basic - proyecto

hola buenas tardes quisiera saber quien puede ayudarme en este proyecto tengo que trabajarlo en visual basic en console y no se si esta bien aunque la profesora me dijo que estoy bien y solo me falta 10 lineas pero no se como hacer para que la hora que esta en la computadora me salga en el programa trabajando en console. porque en forma grafica me sale pero el proyecto es console . les agradeceria muchisimo su ayuda. aqui les dejo lo ue tengo hecho hasta ahora. me dijo tambien que tengo que ir llamando a los numeros con if pero ya llamo a la hora y los minutos y segundos como los llamo es una operacion dice ella que matematica pero no encuentro como realizarlo.

Presentar la hora por pantalla. Los números deben de ser dibujados con asteriscos. Si la hora cambia, el reloj que se muestra por pantalla, cambia

module module 1

Public Sub cero()
Console.WriteLine("****")
Console.WriteLine("* *")
Console.WriteLine("* *")
Console.WriteLine("* *")
Console.WriteLine("****")
End Sub

Public Sub uno()
Console.WriteLine("*")
Console.WriteLine("*")
Console.WriteLine("*")
Console.WriteLine("*")
Console.WriteLine("*")

End Sub
Public Sub dos()

Console.WriteLine("****")
Console.WriteLine(" *")
Console.WriteLine("****")
Console.WriteLine("*")
Console.WriteLine("****")
End Sub

Public Sub tres()

Console.WriteLine("****")
Console.WriteLine(" *")
Console.WriteLine("****")
Console.WriteLine(" *")
Console.WriteLine("****")
End Sub


Public Sub cuatro()

Console.WriteLine("* *")
Console.WriteLine("* *")
Console.WriteLine("****")
Console.WriteLine(" *")
Console.WriteLine(" *")
End Sub

Public Sub cinco()

Console.WriteLine("****")
Console.WriteLine("* ")
Console.WriteLine("****")
Console.WriteLine(" *")
Console.WriteLine("****")
End Sub


Public Sub seis()

Console.WriteLine("****")
Console.WriteLine("* ")
Console.WriteLine("****")
Console.WriteLine("* *")
Console.WriteLine("****")
End Sub

Public Sub siete()
Console.WriteLine("****")
Console.WriteLine(" *")
Console.WriteLine(" *")
Console.WriteLine(" *")
Console.WriteLine(" *")
End Sub

Public Sub ocho()

Console.WriteLine("****")
Console.WriteLine("* *")
Console.WriteLine("****")
Console.WriteLine("* *")
Console.WriteLine("****")
End Sub


Public Sub dospuntos()
Console.WriteLine("*")
Console.WriteLine(" ")
Console.WriteLine(" ")
Console.WriteLine(" ")
Console.WriteLine("*")
End Sub

Sub main()
if hora==9 then
end if

End Sub

End Class