Dim d As DateTime = Now 'obtengo la fecha y hora
Para darle el formato que necesitas sería:
d.ToString("dd/MM/yyyy")
ó
d.ToString("dd-MM-yyyy")
De todas formas en las faq´s hay informacion para darle formato a las fechas..
Salu2 y cualquier cosa por aqui andamos..