Public Function GetKoord_Eingerechnet(ByVal vPunktCode As Variant, _
                                                                          Byref _
                                                                          DasAr_
                                                                          ray() _
                                                                          As _
                                                                          Doubl_
                                                                          e) As _
                                                                          Long
....
End Function