чрезвычайно срочно необходимо сделать!!!

Dim F(11) As String
    Dim N(11) As Integer
    Dim H(11) As Integer
    Dim Dtp As String = ""
    Dim Min as integer 
    For i As Integer = 0 To 11
        H(i) = Val(inputbox("Введите шифр поста ГАИ № " & i ))
        F(i) = inputbox("Введите фамилию дежурного на посту № " & i )
        N(i) = Val(inputbox("Введите число ДТП на посту № " & i ))
    Next
For j As Integer = 0 To 11
    If N(j) = 5 Or N(j) > 5 Then
        Dtp & = H(j) & " " & F(j) & " " & N(j) & VbCrLf
    End If
Next
min = 1000000
For g As Integer = 0 To 11
      If N(g) < min Then 
        Min = N(g)
      End If
Next
Msgbox (DtP, MsgBoxStyle.Information,"Список постов, где 5 и > ДТП")
 
For p As Integer = 0 To 11
    If N(p) = Min Then
        Msgbox(H(p), MsgBoxStyle.Information,"Пост с минимальным числом ДТП")
    End If
Next

Dim a(19) As Integer
    Dim b(19) As Integer
    Dim index as Integer = 0
    For i As Integer = 0 To 19
        A(i) = Val(inputbox("Введите число"))
    Next
    
    For j As Integer = 0 To 19
        If a(j) > 0 Then
B(index) = a(j)
index + = 1
        End If
    Next
    
    For t As Integer = 0 To 19
        If A(t) < 0 Then
            B(index) = A(t)
            index + = 1
        End If
    Next
    
    For r As Integer = 0 To 19
        Msgbox(b(r)).ToString
    Next