Sumar horas a una fecha

Dim FECHA As Date = "2009/08/18 14:30"
Dim HORA As Date = "7:30:18"
Dim SEGUNDOS As Integer = DateDiff(DateInterval.Second, CDate("00:00"), HORA)
FECHA = FECHA.AddSeconds(SEGUNDOS)