Private flgClear As Boolean
 
Private Sub Form_Load()
 
  flgClear = True
 
End Sub
 
Private Sub Text1_Change(Index As Integer)
 
  Dim i%
 
  If flgClear = False Then Exit Sub
  flgClear = False
  For i = Text1.LBound To Text1.UBound
    If i <> Index Then Text1(i).Text = ""
  Next i
 
End Sub

Private Sub Text1_GotFocus(Index As Integer)
 
  With Text1(Index)
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
 
End Sub

Gruss,

Zardoz