关于队列补漏问题

以下函数没有调试过，不知道是否正确，你试试看吧。

Function A(ParamArray intA() As Variant) As Variant
'功能:找出1至10中不存在于给定数组中的数组
'示例：A(3,5,8)
Dim i As Integer, m As Integer
Dim B()
For i = 1 To 10
    If Valcp(i, intA) = True Then
        Exit For
    Else
        m = m + 1
        ReDim Preserve B(m)
        B(m) = i
    End If
Next
A = B
End Function

Function Valcp(val As Long, ParamArray intA() As Variant) As Boolean
'功能:判断数是否存在于数组中
Dim i As Long
For i = 0 To UBound(intA())
    If val = Int(i) Then
        Valcp = True
        Exit Function
    Else
        Valcp = False
    End If
Next
End Function