UBound og oplistning af tal

Hej

Jeg har tidligere fået hjælp til funktionen som er gengivet nedenfor jf. http://www.eksperten.dk/spm/597298.

Function ListEPnr(KontoNr As Integer, Afdeling As String, Dataområde As Range) As String
Dim EP As Variant, KO As Variant, Ens As Boolean, T As Integer, A As Variant
KO = Dataområde

For i = 1 To UBound(KO)
Ens = False
    If KO(i, 3) = KontoNr And KO(i, 1) = Afdeling Then
        A = Split(ListEPnr, ",")
       
        For T = 0 To UBound(A)
            If Val(A(T)) = KO(i, 2) Then
              Ens = True
            End If
        Next T
       
        If Ens = False Then
            ListEPnr = ListEPnr & KO(i, 2) & ","
        End If
      End If
Next i
ListEPnr = Left(ListEPnr, Len(ListEPnr) - 1)
End Function

Function ListEPnrSum(KontoNr As Integer, Afdeling As String, Dataområde As Range)
Dim KO As Variant
KO = Dataområde
For i = 1 To UBound(KO)
    If KO(i, 3) = KontoNr And KO(i, 1) = Afdeling Then
  ListEPnrSum = ListEPnrSum + KO(i, 5)
    End If
Next i
End Function


___________________________________

Jeg er ikke sikker på om det er korrekt forstået, at funktionen UBound kan sammenlignes med LOPSLAG i Excel?

Hvis det er tilfældet vil jeg høre om der er nogle der ved om der findes en version af funktionen som ikke kræver data i stigende orden?

Hvis UBound ikke fungerer som LOPSLAG er der så en der ved om det er muligt at ændre i funktionen ovenfor så den ikke kræver data i stigende rækkefølge?

Mvh. TVC