Finde del af streng

Function myFunction(s As String, n As Integer) As String
  Dim i As Integer
  Dim res As String
  Dim c As String
  Dim count As Integer
 
  count = 1
  For i = 1 To Len(s)
      c = Mid(s, i, 1)
      If c = ";" Then
          count = count + 1
      Else
          If count = n Then
              res = res + c
        End If
      End If
  Next i
 
  myFunction = res
End Function

Du bør tilføje et eller andet for at håndtere
situationen, hvor der ikke er 3 elemeneter.

Jamen hvis man lige kan gennemskue det, så er det jo ligetil kan jeg se :-)

Alle kender vel til det at man sidder og roder med et eller andet og man bare ikke kan se skoven for bare træer.

Det problem kender jeg meget godt.

PS: Jeg kan lige se at jeg har glemt en
    res = "" - det virker uden men jeg synes
    det er pænest med den.