Private Sub Text22_GotFocus()
Me.Text22 = Spoji(Me.Text18, Me.Text20)
End Sub