Buenas,
Para lo que quieres existen los tipos genéricos.
Código vb:
Ver originalPublic Sub Push(Of T)(ByRef DiArray() as T, ByRef DiValue as T)
Dim Limite As Integer = DiArray.Length
ReDim Preserve DiArray(Limite)
DiArray(Limite) = DiValue
End Sub
Te dejo un enlace para que te informes más sobre los tipos genéricos:
http://msdn.microsoft.com/es-es/library/w256ka79.aspx
Saludos.