Need to write a CDate that is correct.

CDate(mm/dd/yyyy hh:mm:ss)

Code:
alarm = CDate(TextBox10.Text & "/" & TextBox7.Text & "/" & TextBox23.Text & " " & TextBox2.Text & ":" & TextBox3.Text & ":" & TextBox14.Text)

                aampm = ComboBox1.Text
                ahour = alarm.Hour
                amin = alarm.Minute
                asec = alarm.Second
                amo = alarm.Month
                ady = alarm.Day
                ayr = alarm.Year