collisionProcess=TelegraphProcess[1/3];

sample=RandomFunction[collisionProcess,{0,100}];

ListLinePlot[sample["Path"],InterpolationOrder->0,Filling->Axis]

Variance[collisionProcess[100]]

Variance[RandomVariate[collisionProcess[100],10^4]]//N