Erstat-funktionen til en variabel tekststreng

Skriv en lille funktion i stil med:

Private Sub Test_ErstatNoget()
  MsgBox ErstatNoget("Test<dfklmdfklmnl>streng")
End Sub

Function ErstatNoget(s As String) As String
  Dim p60 As Integer
  Dim p62 As Integer
  p60 = InStr(1, s, Chr(60))
  p62 = InStr(1, s, Chr(62))
  ErstatNoget = Left(s, p60 - 1) & Mid(s, p62 + 1)
End Function

hvis den skal finde alle i strengen, hvis der er flere forekomster, så skal den kalde sig selv igen, jeg tjekker kun på Chr(60)

Function ErstatNoget(s As String) As String
    Dim p60 As Integer
    Dim p62 As Integer
    Dim Rest As String
    p60 = InStr(1, s, Chr(60))
    p62 = InStr(1, s, Chr(62))
    Rest = Left(s, p60 - 1) & Mid(s, p62 + 1)
    If InStr(1, Rest, Chr(60)) > 0 Then
        ErstatNoget = ErstatNoget(Rest)
    Else
        ErstatNoget = Rest
    End If
End Function

Der ER nemlig flere forekomster, så godt spottet kabbak.
Noget går galt i denne linie, hvor jeg bliver stoppet:
Rest = Left(s, p60 - 1) & Mid(s, p62 + 1)

Nogen forslag?

...måske det har noget at gøre med at feltet er "Notat" er et langt felt...Excel vil f.eks. ikke søg/erstatte i felter over 916 tegn.

...nej, nu tror jeg at jeg har fundet fejlen...det forekommer, når et felt OVERHOVEDET IKKE har Chr(60) og Chr(62)...kan dette rettes i koden?

...nej, æv...nu returneres "Overflow" i stedet

Function ErstatNoget(s As String) As String
    Dim p60 As Integer
    Dim p62 As Integer
    Dim Rest As String

    ErstatNoget = s
    p60 = InStr(1, s, Chr(60))
    if p60=0 then exit function

    p62 = InStr(1, s, Chr(62))
    Rest = Left(s, p60 - 1) & Mid(s, p62 + 1)
    If InStr(1, Rest, Chr(60)) > 0 Then
        ErstatNoget = ErstatNoget(Rest)
    Else
        ErstatNoget = Rest
    End If
End Function

tak for indlægget. Notatfeltet bliver desværre til et Tekstfelt, hvilket resulterer i max. 255 karakterer. Dvs. at en masse af den oprindelige tekst fra notatet forsvinder. Herudover kommer en fejl, at nogle af felter bliver til Null.

Jeg har kigget lidt på denne løsning, som er tilfredsstillende.

Erstat([Tabel2.2];Chr(60) & "br" & Chr(62);"")
Erstat([Tabel2.2];Chr(60) & "li" & Chr(62);"")
Erstat([Tabel2.2];Chr(60) & "br " & Chr(62);"")
Erstat([Tabel2.2];Chr(60) & "/b" & Chr(62);"")
Erstat([Tabel2.2];Chr(60) & "b" & Chr(62);"")
Erstat([Tabel2.2];Chr(60) & "hr" & Chr(62);"")
Erstat([Tabel2.2];Chr(60) & "/br" & Chr(62);"")
Erstat([Tabel2.2];Chr(60) & "br /" & Chr(62);"")
Left([tabel2.2];InStr(1;[tabel2.2];Chr(60);0)-1)

Kan man lave en funktion til dette?

Øøøh.
Har du prøvet at ændre ErstatNoget's parameter- og resultattype fra String til Variant?
Er [Tabel2.2] det eneste felt, der skal ændres?
I hvilken situation skal det ændres?
Fra kode? I en forespørgsel? På en formular eller på en rapport?

nu er jeg jo rookie når det kommer til koder, så en ændring fra String til Variant kan jeg umuligt komme på...har lige prøvet det...og det VIRKER sørme. Super super super. Til andre der finder dette emne...her er den endelige kode:

Function ErstatNoget(s As Variant) As Variant
    Dim p60 As Integer
    Dim p62 As Integer
    Dim Rest As Variant

    ErstatNoget = s
    p60 = InStr(1, s, Chr(60))
    If p60 = 0 Then Exit Function

    p62 = InStr(1, s, Chr(62))
    Rest = Left(s, p60 - 1) & Mid(s, p62 + 1)
    If InStr(1, Rest, Chr(60)) > 0 Then
        ErstatNoget = ErstatNoget(Rest)
    Else
        ErstatNoget = Rest
    End If
End Function

...har fundet ud af en fejl, som tidligere beskrevet...pga. notatfeltet indeholdte tegnet *....

...nej, det var ikke det...det var i stedet fordi Variant sluttede med "<br".
Det var DET der skabte fejlen. Kan man tage forbehold for dette i koden?

Nu tjekker den på >, så prøv det

Function ErstatNoget(s As Variant) As Variant
    Dim p60 As Integer
    Dim p62 As Integer
    Dim Rest As Variant
    ErstatNoget = s
    p60 = InStr(1, s, Chr(60))
    p62 = InStr(1, s, Chr(62))
  If p62 = 0 Then Exit Function
    Rest = Left(s, p60 - 1) & Mid(s, p62 + 1)
    If InStr(1, Rest, Chr(60)) > 0 Then
        ErstatNoget = ErstatNoget(Rest)
    Else
        ErstatNoget = Rest
    End If
End Function

Vi kan også tjekke på begge

If p62 = 0 or p60 = 0 Then Exit Function

kabbak, jeg synes også din deltagelse skal have point, fik lukket spørgsmålet for hurtigt. Venligst læg et svar på http://www.eksperten.dk/spm/775288

Så lykkedes det! Takker for point  ;o)