Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Multiply Then
SendKeys.Send("{BACKSPACE}")
SendKeys.Send("{X}")
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Multiply Then
TextBox1.SelectedText = "X"
e.Handled = True
End If
End Sub