Private Function MasB() As Integer

        TextBox5.Text = ""

        Dim i, n As Integer
        n = kol - 1
        ReDim b(n)
        For i = 0 To n
            b(i) = mas(i)
            If b(i) < -99 Or b(i) > -10 Then
                If b(i) < 10 Or b(i) > 99 Then
                    TextBox5.Text += CStr(b(i)) & vbCrLf

                End If
            End If
        Next i
        Return MasB
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MasB()

    End Sub

    Private Function MasC() As Integer
        Dim i As Integer
        ReDim c(n)
        Mmax = b(0)
        TextBox6.Text = ""
        For i = 1 To n
            c(i) = b(i)
            If c(i) > Mmax Then ' Максимальное число
                Mmax = c(i)
                If b(i) >= 0 Then                                      'Скорее всего тут проблема !!!
                    b(i + 1) = Mmax
                    TextBox6.Text += CStr(b(i)) & vbCrLf
                End If

            End If

        Next i
       
        Return MasC
    End Function