Puedes hacer ésto:
Cita: Dim s = "una cadena"
s = s.substring(inicio,fin)
ó
s = mid(cadena,inicio,fin)
Pero por lo que veo si estas usando fechas porque no le das formato.
Te podría quedar así:
Supongamos que tienes
Cita: Dim d as DateTime = Now()
para imprimir solo la fecha sería:
Cita: Response.Write(d.ToString("dd/MM/yyyy"))
Saludos y espero que te funcione