Public Shared Sub Filter(Of T)(ByVal Arry() As T, ByRef ReturnArry() As T, ByVal Str As T)
Dim Err As New Exception("Error in fucntion Filter!")
Try
Dim i As Integer = 0
Dim a As Integer = 0
Dim TmpArry() As T
ReDim TmpArry(Arry.Length)
For i = LBound(Arry) To UBound(Arry)
If Not Arry(i).Equals(Str) Then
TmpArry(i) = Arry(i)
End If
Next i
For i = LBound(TmpArry) To UBound(TmpArry)
If Not IsNothing(TmpArry(i)) Then
a = a + 1
End If
Next i
ReDim ReturnArry(a - 2) : a = 0
For i = LBound(TmpArry) To UBound(TmpArry)
If Not IsNothing(TmpArry(i)) Then
ReturnArry(a) = TmpArry(i)
End If
a = a + 1
Next i
Catch ex As Exception
Throw ex
End Try
End Sub
这个过程，错在哪儿？
怎么改？

EX说是下标越界
我知道这个问题，但是我不知道怎么改
我的程序目的在于想把传入数组中的某种元素排除，我用了泛型函数，但是不能排除一个 Char 数组中的""也就是空字符串元素，不知道怎么改。
希望高手大哥有所指教，谢谢！！！！！！！！！