Is it possible to build a function that will place one half of the result in
the active cell (as normal - cell where the formula is) and another part of
the result in the cell to the right of the active one?

Something like this (which doesn't work incidentally):-

Function testoff(var)
testoff = var + 10
ActiveCell.Offset(1, 1).Value = 1


End Function