C# / VB.NET - [vb.net] Problema con eventi keypress textbox

Ciao a tutti ho un problema non questo codice:

Private Sub textbox1.text_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Cripta.KeyPress
        If e.KeyChar = Chr(32) Then
            textbox1.Text = textbox1.Text & "_"
        End If
    End Sub

Ho impostato la proprietà keypreview su true del form.
Il problema è che non succede niente quando premo la barra spaziatrice. Io vorrei che al posto dello spazio mi mettesse l'underscore(quindi rinunciando non voglio lo spazio). E' possibile??? grazie

A parte il fatto che il codice dovrebbe essere

        If e.KeyChar = Chr(32) Then
            e.KeyChar = "_"
        End If

cosa e' quel Cripta ?

Grande funziona! cripta è il nome della textbox, quando ho copiato il codice qui sul forum mi è sfuggito di rinominarlo.grazie