Thanks Garry. Worked like a charm! I appreciate all your help these past few days!!

On Wednesday, May 4, 2011 1:03:41 PM UTC-6, GS wrote:
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