Dim lcString As String = "SELECT Member.FirstName,Test.LastName,Member.Bann,Test.Register,User.Blog,Member.Cie,User.NoProvince, Province.Title_E AS Province,Country.Title_E AS Country,Member.City,Member.NoCountry,Member.Http,Member.LastAccess FROM Member(NOLOCK) LEFT JOIN Province ON Member.NoProvince=Province.Numero INNER JOIN Country ON Member.NoCountry=Country.Numero WHERE Member.Numero=@Numero" Dim lcWords() As String = {"Member", "User", "Test"} Dim stringBuilder As New StringBuilder(lcString) For Each s In lcWords stringBuilder.Replace(s + ".", "[" + s + "].") Next Dim result As String = stringBuilder.ToString()