.NET (Core and Framework)

select name,familyname,address,mobile,phone,fax,email,website,space,make,model,color,plate,tag,memberpayment,month,year,amount,vat,expirydate,membercar,timezone,timezonename,passback
from (select name,familyname,address,mobile,phone,fax,email,website,space,make,model,color,plate,tag,memberpayment,month,year,amount,vat,expirydate,membercar,timezone,timezonename,passback,
             row_number() over (partition by name order by serial) as seqnum
      from membersvw
      where familyname='Eliane El Asmar'
     ) membersvw
where seqnum = 1;

strsql = "select serial,name,familyname,address,mobile,phone,fax,email,website,space,make,model,color,plate,tag,memberpayment,month,year,amount,vat,expirydate,membercar,timezone,timezonename,passback"
              strsql = strsql & "from (select name,familyname,address,mobile,phone,fax,email,website,space,make,model,color,plate,tag,memberpayment,month,year,amount,vat,expirydate,membercar,timezone,timezonename,passback,"
              strsql = strsql & " row_number() over (partition by name order by serial) as seqnum"
              strsql = strsql & "from(membersvw)"
              strsql = strsql & "where familyname='Eliane El Asmar'"
              strsql = strsql & "  ) membersvw"
              strsql = strsql & "where seqnum = 1;"

Public Sub SearchAndReplace(ByVal document As String)
       Dim wordDoc As WordprocessingDocument = WordprocessingDocument.Open(document, True)
       Using (wordDoc)
           Dim docText As String = Nothing
           Dim sr As StreamReader = New StreamReader(wordDoc.MainDocumentPart.GetStream)

           Using (sr)
               docText = sr.ReadToEnd
           End Using

           Dim regexText As Regex = New Regex("##ReplTag##")
           docText = regexText.Replace(docText, "ReplValue")
           Dim sw As StreamWriter = New StreamWriter(wordDoc.MainDocumentPart.GetStream(FileMode.Create))

           Using (sw)
               sw.Write(docText)
           End Using
       End Using
   End Sub

   Module Module1

    Sub Main()
        Dim ObjMemoryStream As System.IO.MemoryStream
        ObjMemoryStream = New System.IO.MemoryStream()
        System.Console.WriteLine("Capacity: {0}", ObjMemoryStream.Capacity.ToString())
        System.Console.WriteLine("Length: {0}", ObjMemoryStream.Length.ToString())

        Dim j As Integer

        For i As Integer = 0 To 1073741824 Step 1
            If (i Mod 256) = 0 Then j = 0 Else j = i Mod 256
            ObjMemoryStream.WriteByte(j)
        Next i

        System.Console.WriteLine("Length: {0}", ObjMemoryStream.Length.ToString())

        Dim ObjFileStream As System.IO.FileStream
        ObjFileStream = System.IO.File.Create("C:\TEST.TXT", 1024)

        Dim ObjBinaryWriter As System.IO.BinaryWriter
        ObjBinaryWriter = New System.IO.BinaryWriter(ObjFileStream, System.Text.Encoding.ASCII)

        ObjMemoryStream.Position = 0

        ObjBinaryWriter.Write(ObjMemoryStream.ToArray())

        ObjBinaryWriter.Flush()
        ObjBinaryWriter.Close()

        System.Console.ReadKey()

    End Sub

End Module