Stai facendo un po' di confusione, partiamo con il fare una cosa per volta.
1) Prendere il valore di TextBox1.Text e trasformarlo in data/ora
Tu hai solo l'ora per cui la data metteremo quella di oggi.
Dim Orario1 As DateTime
......
prova a buttare giù un po' di codice e fare delle prove, poi si prosegue con il resto