Private Sub TextBox1_Change()
TextBox2 = ""
If IsNumeric(TextBox1) Then TextBox2 = "00"
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox2.Activate
End If
End Sub
Private Sub TextBox2_GotFocus()
TextBox2.SelStart = 0
TextBox2.SelLength = 2
End Sub