Private Sub Text12_GotFocus()
Dim Treci As Double
Dim Cetvrti As Double

Treci = Me.Text8
Cetvrti = Me.Text10

Me.Text12 = Treci + Cetvrti

End Sub