Visual Basic.NET - Ayuda con Char ()...... !!

Hola a todos, intento de generar contraseñas. Intento de dar la opcion de que el usuario eliga varios caractares, (numeros , letras y guiones bajos) como puedo poner el siguiente ejemplo sin que me de errores, gracias de antemano, salu 22

If CheckBox1.Enabled = True Then
vLetras = 65,122
If CheckBox2.Enabled = True Then
vNumeros = Int(48, 57)
If CheckBox3.Enabled = True Then
vguion = sChr(95)
If CheckBox4.Enabled = True Then
vpalabra = TextBox1.Text
End If
End If
End If
End If

Esto funciona bien.........

Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress

'Solo Texto
If Me.chkLetras.Checked Then
If Not Char.IsLetter(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If
End If

'Solo Numero
If Me.chkNumeros.Checked Then
If Not Char.IsDigit(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If
End If

'Solo Subguion
If Me.chkSubGuion.Checked Then
If Not e.KeyChar = "_"c Then
e.Handled = True
Else
e.Handled = False
End If
End If

'Solo texto y numeros
If Me.chkLetras.Checked And Me.chkNumeros.Checked Then
If Not Char.IsLetterOrDigit(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If
End If

'Solo texto y subguion
If Me.chkLetras.Checked And Me.chkSubGuion.Checked Then
If Not Char.IsLetter(e.KeyChar) And Not e.KeyChar = "_"c Then
e.Handled = True
Else
e.Handled = False
End If
End If

'Solo numeros y subguion
If Me.chkNumeros.Checked And Me.chkSubGuion.Checked Then
If Not Char.IsDigit(e.KeyChar) And Not e.KeyChar = "_"c Then
e.Handled = True
Else
e.Handled = False
End If
End If

'Solo texto, numeros y subguion
If Me.chkLetras.Checked And Me.chkNumeros.Checked And Me.chkSubGuion.Checked Then
If Not Char.IsLetterOrDigit(e.KeyChar) And Not e.KeyChar = "_"c Then
e.Handled = True
Else
e.Handled = False
End If
End If

'Si no estan marcados texto, numeros o subguion (no permite escribir)
If Me.chkLetras.Checked = False And Me.chkNumeros.Checked = False And Me.chkSubGuion.Checked = False Then
e.Handled = True
End If

'Todos los caracteres
If Me.chkTodo.Checked Then
e.Handled = False
End If

End Sub

Private Sub chkLetras_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkLetras.CheckedChanged, chkNumeros.CheckedChanged, chkSubGuion.CheckedChanged
Me.txtPassword.Focus()
End Sub

Private Sub chkTodo_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkTodo.CheckedChanged
If Me.chkTodo.Checked = True Then
Me.chkLetras.Checked = False
Me.chkNumeros.Checked = False
Me.chkSubGuion.Checked = False
End If
Me.txtPassword.Focus()

End Sub

Muxisimas gracias Harold V, lo probraré a ver que tal