t="den textsträng du vill dona med"
offset = 1
l = len(t)
do until false
pos = instr(mid(t,offset),".")
if pos = 0 then exit do
offset = offset + pos
l = l - pos
do until false
if offset = l then exit do
if mid(t,offset,1) <> " " then
t = mid(t,1,offset-1) & ucase(mid(t,offset,1)) & mid(t,offset+1)
exit do
end if
offset = offset + 1
loop
loop
------------------
essentitia preter non sans multiplicandum