argument function variant vb

[.]

hi
sorry for my english
i have this function in vb but i can't pass argument point why
my little code

import win32com.client
from math import *
chemin ='c:\cafetiere.dwg'
IDacad = win32com.client.Dispatch('AutoCAD.Application.15')
IDdessin = IDacad.Application.Documents.Open(chemin)
unpoint = (1.0, 2.0, 3.0)
dwg = IDdessin.ModelSpace.AddPoint(unpoint)
print IDacad
print unpoint
IDacad.Visible = 1

in vb
Sub Example_AddPoint()
    ' This example creates a point in model space.
    Dim pointObj As AcadPoint
    Dim location(0 To 2) As Double

    ' Define the location of the point
    location(0) = 5#: location(1) = 5#: location(2) = 0#

    ' Create the point
    Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
End Sub

thank