AutoCAD VB :: Copy Objects From One Drawing To Another

I'm using this function to copy blocks from one drawing to another. It works in AutoCAD 2004, 2006 but I need to know whether will it work in AutoCAD 2010. This is the code that I use and my question is if I add these lines to check version is the method will work or not.

If Left(Application.Version, 2) = "18" Then
    Set oDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.18")
End If

Here is the full program:

Private Sub CopyBlock(BlockName As String)
     Dim oDbx As Object
        ' 2007 - 2009 ver.
        If Left(Application.Version, 2) = "17" Then
           Set oDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.17")
        End If
[code]....