¿Queres saber si se esta seleccionando todo el texto?; porque si es asi te estas equivocando de propiedad; para hacer esto tendrias que utilizar la propiedad
SelLength; algo asi:
Código:
If Text1.SelLength = Len(Text1.Text) Then
MsgBox "SI Seleccionada"
Else
MsgBox "NO Seleccionada"
End If
[EDITADO]
Aunque tambien lo podes hacer asi:
Código:
If Text1.SelText = Text1.Text Then
MsgBox "SI Seleccionada"
Else
MsgBox "NO Seleccionada"
End If
Espero te sirva

Saludos