Try...

Private Sub MultiPage1_Click(ByVal Index As Long)
If Index = 1 Then '//Page2 (Index is zero based)
With Me.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
End Sub

Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0 '//set to Page1
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc