funtion der opdeler en tekst i 2 stykker

Jeg skal bruger en funktion der opdeler en mængde tekst i cirka 2 lige store bider.
Teksten kommer fra et database felt.
Teksten indeholder HTML tags.
Første tekstmænge skal slutte pænt ved et punktum i nærheden af halvdelen af tekst mængden.

Jeg har lavet følgende men kan ikke få det til at virke. 


Function GetDataConnection()
  dim oConn, strConn
  Set oConn = Server.CreateObject(\"ADODB.Connection\")
    strConn = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\Inetpub\\wwwroot\\totalproduktion\\total.mdb\"
  oConn.Open strConn
  set GetDataConnection = oConn
End Function

Set Conn = GetDataConnection

dbTable = \"tekster\"

SET RS=Conn.Execute(\"SELECT * FROM \" & dbTable & \" WHERE ID = 4 ORDER BY Titel ASC\")


aa = len(Server.HTMLEncode(RS(\"Tekst\")))
ee =  aa/2

ff = fix(ee)