Как доделать программу в VBA

Private Type rasp
r As Integer
pp As String
vo As Date
vp As Date
vput As Date
End Type
'процедура ввода
Private Sub enter(a() As rasp, n As Integer)
Dim sut As Date
Dim sut1 As Date
sut = #11:59:00 PM#
sut1 = Cells(1, 6)
n = 1
While Cells(n, 1) <> ""
a(n).r = Cells(n, 1)
a(n).pp = Cells(n, 2)
a(n).vo = Cells(n, 3)
a(n).vp = Cells(n, 4)
If a(n).vo < a(n).vp Then
a(n).vput = a(n).vp - a(n).vo
Else
a(n).vput = a(n).vp - a(n).vo + sut + sut1
End If
n = n + 1
Wend
n = n - 1
End Sub
Private Sub show(a() As rasp, n As Integer, k As Integer)
'процедура вывода
Range(Cells(1, 3), Cells(4 * n, 5)).Select
Selection.NumberFormat = "[hh]:mm"
For i = 1 To n
s = s & a(i).r & "-" & a(i).pp & "-" & a(i).vo & "-" & a(i).vp & "-" & Chr(13)
'cells( i+k,5)=a(i).vput
Next
For i = 1 To n
Range(Cells(i + k, 1), Cells(i + k, 5)).Borders.LineStyle = 1
Next
MsgBox (s)
End Sub
Sub main()
Dim my(100) As rasp, n As Integer
s = "1"
While s <> ""
s = InputBox("1-enter, 2-show, 3-max, esc-quit")
Select Case s
Case "1":
Call enter(my, n)
Call show(my, n, n + 2)
'Cells(n + 2, 1) = "в пути"
'Call show(my, n, n + 2)
Case "3":
s = MsgBox("max-" & sel(my, n))
Range(Cells(2 * n + 3, 1), Cells(2 * n + 3, 1)).Font.Bold = True
Case "2":
Call show(my, n, n + 2)
End Select
Wend
MsgBox ("bye")
Range(Cells(n + 2, 1), Cells(4 * n + 4, 20)).Clear
Range(Cells(1, 8), Cells(3 * n + 4, 20)).Clear
Range(Cells(1, 1), Cells(n, 5)).Font.Color = vbBlack
End Sub
Private Function sel(a() As rasp, n As Integer) As Date
Dim c As Integer, j As Integer, g As String, pn As String, max As Date
'максимальная продолжительность
max = a(1).vput
For i = 1 To n
If a(i).vput > max Then
max = a(i).vput
j = i
End If
Next
Cells(1, 9) = "максимальная продолжительность"
Range(Cells(1, 11), Cells(2, 11)).Select
Selection.NumberFormat = "[hh]:mm"
Cells(1, 11) = max
Range(Cells(j, 1), Cells(j, 5)).Font.Color = vbBlue
MsgBox ("максимальная продолжительность" & max)
End Function