Visual Basic - Texto seleccionado

Hola a todos! Tengo un texto seleccionado con este codigo:
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

Como podria hacer para que al darle a un boton me borre lo seleccionado y me ponga el valor del boton? Gracias!!!

Tu pregunta esta muy rara pero pues aqui esta tu respuesta :

Private Sub Command1_Click()
Text1.SelText = Command1.Caption
End Sub

En tu caso borras todo, asi que solo es Text1 = Command1.Caption