Seleccionar valores en TextBox

Estoy tratando de hacer que un formulario con 2 TextBox seleccione (sombra
azul)su contenido cuando se muestra, cualquier sugerencia es aceptada.
Gracias.
Public Dia As Byte, Mes As Byte
Sub Test()
Load userform1
With userform1
.TextBox1.SetFocus
.TextBox1.SelLength = 2
.Show
End With
End Sub
En el modulo del formulario
Private Sub CommandButton1_Click()
ActiveCell = userform1.TextBox1
ActiveCell.Offset(0, 1) = userform1.TextBox2
userform1.Hide
End Sub
Private Sub TextBox1_Change()
If TextBox1.Value = "" Then Exit Sub
If TextBox1.Value > 31 Or _
TextBox1.Value = 0 Then TextBox1 = "": MsgBox "No es un Nº de día válido"
Dia = TextBox1
End Sub
Private Sub TextBox2_Change()
If TextBox2.Value = "" Then Exit Sub
If TextBox2.Value > 12 Or _
TextBox2.Value = 0 Then TextBox2 = "": MsgBox "No es un Nº de mes válido"
Mes = TextBox2
End Sub