Private Sub txtStamm_KeyPress(Index As Integer, KeyAscii As Integer)
i = Index
If KeyAscii = vbKeyBack Then
   If Len(txtStamm(0)) = 2 Then
      txtStamm(0) = ""
   End If
End If
If Len(txtStamm(0)) = 2 Then
        txtStamm(0) = txtStamm(0) + " "
        txtStamm(0).SelStart = 3
        txtStamm(0).SetFocus
        Exit Sub
End If