replace text in txt

Sådan her?:

If InStr(strText,"Jim")>0 Then
    strNewText=Replace(strText,"Jim","James")
Else
    strNewText=Replace(strText,"James","Jim")
End If

Hvis du vil udbygge den med flere, bør du nok ændre til:

If InStr(strText,"Jim")>0 Then
    strNewText=Replace(strText,"Jim","James")
ElseIf InStr(strText,"James")>0 Then
    strNewText=Replace(strText,"James","Jim")
End If

Sad netup og kiggede på InStr.
Tak for hjælpen.

svar

Værsågod. =)

Takker for point! :)

Mig der takke :-)