l'evento che viene scatenato al click del mouse è

Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _ System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
TextBox1.Text = "nuovo testo"
End Sub