How can I set this value (5.0mm) in my macro?

Some Code:

    Dim myNote(1) As SldWorks.Note       Set myNote(0) = swModel.InsertNote(NextRevision)    boolstatus = myNote(0).SetBalloon(9, 6)  '9=swBS_FlagTriangle / 6=swBF_UserDef    myNote(0).angle = 0    myNote(0).SetHeight (0.0025) 'in meters       Set myAnnotation = myNote(0).GetAnnotation()           If Not myAnnotation Is Nothing Then        Set swTextFormat = myAnnotation.GetTextFormat(0)
        longstatus = myAnnotation.SetLeader2(False, 0, True, False, False, False)        boolstatus = myAnnotation.SetPosition(x, y, 0)        boolstatus = myAnnotation.SetTextFormat(0, False, swTextFormat)    End If

GeirDa