Время до отправления поезда

[NewStudents]

Товарищи, здравствуйте!

Задача следующая: Поезд прибывает на станцию в a часов b минут и отправляется в c часов d минут. Пассажир пришел на платформу в n часов m минут. Определить процедуру, выводящую на экран время, оставшееся у пассажира до отправления ближайшего поезда. Числа a,b,c,d,n,m – целые, 0 <= a <= 23, 0 <= b <=59, 0 <= c <= 23, 0 <= d <=59, 0 <= n <= 23, 0 <= m <=59.

Программа написана и работает исправно, но в задании указано использование ПОДПРОГРАММ (с последующим составлением блок-схем для самой программы и для подпрограммы в отдельности, с этим я справлюсь). Подскажите пожалуйста, как можно модернизировать код программы? Да и что вообще считаете по поводу этого кода. Может чего изменить требуется.

Private Sub CommandButton1_Click()
Dim A As Date, B As Date, C As Date
A = InputBox("Введите время отправления поезда (через двоеточие)")
B = InputBox("Введите время прибытия пассажира (через двоеточие)")
C = IIf(A < B, (CDate("23:59") - B) + A + CDate("00:01"), A - B)
MsgBox "Время ожидания до отправления ближайшего поезда " & Format(C, "hh:mm")
End Sub

Спасибо!

[Казанский]

Я уже писал на кибере, что можно

C = A - B - (A < B)

А подпрограмму можно сделать для того, чтобы переводить c и d, n и m в формат даты, в соотв. с условием задачи.