Function RemoveItemFromArray(ByVal s As String(), ByVal index As Integer) As _
  String()
  Dim s_tmp() As String
  Dim c As Integer = 0
  For a As Integer = 0 To s.Length - 1
    If a <> index Then
      ReDim Preserve s_tmp(c)
      s_tmp(c) = s(a)
      c += 1
    End If
  Next
Return s_tmp
End Function

Dim s(10) As String ' Mit Beispielen füllen
For a As Integer = 0 To 10 
  s(a) = a.ToString
Next
Dim s2() As String = Me.RemoveItemFromArray(s, 5) ' Eintrag mit dem Index 5 
' entfernen!
For a As Integer = 0 To s2.Length - 1
  Debug.WriteLine(s2(a).ToString)
Next