Question 1: Create an AfterUpdate event for the first textfield and use the Right function. Something like this:
Code:
Private Sub Text1_AfterUpdate()
Text2.Text = Right(Text1.Text, 6)
End Sub
Question 2: Use the Input Mask property. It can limit characters and type of characters. The appropriate help reference can be found under Valid input mask characters