Rediger text1.text

Hej
Jeg har et spørgsmål om text1.text feltet.

Jeg vil rediger en ukentdt værdi i et text felt,
Har brugt replace virker fint med kendt text, men i nogle linier kan der være en ukendt værdi.

f.eks

kvinde=1  ;Kan kun være 0 eller 1 så det er jo let
mand=0    ;Kan kun være 0 eller 1 så det er jo let
søn=39    ;men her kan værdien være fra 0 til 99 ikke så let
datter=20  ;men her kan værdien være fra 0 til 99 ikke så let

Så ændring af mand=0 til mand=1 eller mand=1 til mand=0 gør jeg sådan

Text1.Text = Replace(Text1.Text, "mand=0", "mand=1", 1, -1, vbTextCompare)

Så ændring af søn=39 til søn=18 går også fint 1 gang da jeg ved at søn=39 anden gang er søn=18 men replace søger efter søn=39

Det jeg regne med var replace "søn="+2tegn med "søn=16"

Håber det er til at forstå, og at der er lidt hjælp at hente

abl2910