Private Sub Text22_GotFocus()
Dim k As String
Dim i As String

k = Me.Text18
i = Me.Text20
Me.Text22 = k & i
End Sub