Private Function GetKoordWorkData(ByVal sPunktCode As String, _
                                  ByVal lngCurrentID As Long, _
                                  ByVal sName_R As String, _
                                  ByVal sName_H As String, _
                                  Optional sTable As String = "", _
                                  Optional sFieldName As String = "ID_Station") _
                                  As Double()

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD