Ég gerði þetta svona í vb.net : Function Urdrattur(ByVal Frett As String) As String Dim i As Integer Dim Teljari As Integer = 100 For i = 1 To Len(Frett) If Mid(Frett, i, 1) = “.” Then If i >= Teljari Then Return Mid(Frett, 1, i) End If End If Next End Function Semsagt.. stilli teljarann eftir því hversu marga stafi á að taka en klippi samt ekki á fréttina fyrr en næsti punktur finnst eftir að teljarinn nær gefnum fjölda.