Clonar un objeto de forma total en .net

Private Function Clonar(ByVal obj As Object) As Object
Dim ms As New MemoryStream
Dim objResult As Object = Nothing
Try
Dim bf As New BinaryFormatter
bf.Serialize(ms, obj)
ms.Position = 0
objResult = bf.Deserialize(ms)
Finally
ms.Close()
End Try
Return objResult
End Function