>I am using this for a StrTran() function followed by a similar function but in case insensitivity:
>
>

>        ' Equivalent of VFP StrTran()
>        ' expC1 String
>        ' expC2 Search for specific character
>        ' expC3 Replace
>        Public Function StrTran(ByVal tcSearchIn As String, ByVal tcSearchFor As String, _
>         ByVal tcReplace As String) As String
>            Dim loStringBuilder As StringBuilder = New StringBuilder(tcSearchIn)
>            Return loStringBuilder.Replace(tcSearchFor, tcReplace).ToString()
>        End Function
>
>        ' Equivalent of VFP StrTran() with case insensitive
>        ' expC1 String
>        ' expC2 Search for specific character
>        ' expC3 Replace
>        Public Function StrTranCaseInsensitive(ByVal tcSearchIn As String, ByVal tcSearchFor As String, _
>         ByVal tcReplace As String) As String
>            Dim lnLength As Integer = tcSearchIn.Length
>            Dim lnLengthSearchFor As Integer = tcSearchFor.Length
>            Dim lnLocation As Integer = 0
>            Dim loStringBuilder As New StringBuilder(lnLength)
>
>            ' Check inputs
>            If lnLength = 0 Or lnLengthSearchFor = 0 Or lnLengthSearchFor > lnLength Then
>                Return tcSearchIn
>            End If
>
>            While lnLocation + lnLengthSearchFor <= lnLength
>
>                If String.Compare(tcSearchIn, lnLocation, tcSearchFor, 0, lnLengthSearchFor, True) = 0 Then
>
>                    ' Add the replaced string
>                    loStringBuilder.Append(tcReplace)
>
>                    lnLocation = lnLocation + lnLengthSearchFor
>                Else
>
>                    ' Advance one character
>                    loStringBuilder.Append(tcSearchIn, lnLocation, 1)
>                    lnLocation = lnLocation + 1
>
>                End If
>
>            End While
>
>            ' Append remaining characters
>            loStringBuilder.Append(tcSearchIn, lnLocation, lnLength - lnLocation)
>
>            Return loStringBuilder.ToString()
>        End Function
>

>
>Would it there be a way to simplify the second method as we did for the first one?

Is this one case-sensitive? (not tested - i don't use vb.net) - might be the long way around....

http://www.rcsbox.com/vbcodestore/thecode/00000029.html

oops...the loop makes it definitely not as efficient as regex... Never mind - bad example ...(also too close to what you were doing) (that didn't come out right)