Private Sub TextBox7_MouseDown(sender As Object, e As MouseEventArgs) Handles _
  TextBox7.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
 
            Dim cbstring = Clipboard.GetText
            cbstring = System.Text.RegularExpressions.Regex.Replace(cbstring, _
              "[\^]", "")
 
            TextBox7.Text = cbstring
        End If
    End Sub