I am working on an assignment for Visual Basic Beginning (visual basic 2005), and need to create an application that allows the user to enter a password, and all vowels need to be replaced with X. The code below is what I have so far...and is not working. If any anybody could steer me in the right direction - if I should be using the Replace method (which is what I used), or the Contains method. Although I have tried the Contains method also, my code didnt work for this method either...any help would be greatly appreciated...

This is my code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newPasswordButton.Click

Dim origPassword As String

origPassword = origPasswordTextBox.Text

If origPassword.Length = 5 Then
origPassword = origPassword.Replace("A-E-I-O-U", "X")
newPasswordLabel.Text = origPassword
End If

If I'm not mistaken, the .replace method takes either a single character to replace, or a string. you appear to be trying to pass it a regular expression as a parameter. you will like have to put the function call in a loop that checks for each vowel. Also, the code you've written will only run if the length of the password is 5 characters.

Thank you, I sure appreciate the reply. I recoded my assignment using a loop function - this is not working either, I end up with one X, and every vowel is supposed to show up as an X; instead of just the one X. I have tried changing my code so many times, and I cannot get this to work... I have included my revised code (again, any help would be appreciated):

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newPasswordButton.Click

Dim origPass As String
Dim num As String

origPass = origPasswordTextBox.Text.ToUpper
num = origPass

Do While num.Length = (5)

MessageBox.Show("Password is five characters.", _
"password", MessageBoxButtons.OK, _
MessageBoxIcon.Information)

If num.Contains("A") Then
num = ("X")
End If

If num.Contains("E") Then
num = ("X")
End If

If num.Contains("I") Then
num = ("X")
End If

If num.Contains("O") Then
num = ("X")
End If

If num.Contains("U") Then
num = ("X")
End If

num = newPasswordLabel.Text


Loop


End Sub

That is because you are setting the entire value of num to X. you'll need something like the following (syntax may not be exact).

Thank you so much. I have tried so many different ways to get the code to work - and now it is (thanks again). Also part of the assignment was to change all numbers to Z and then reverse the password. This is the revised code (again…):

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newPasswordButton.Click

Dim origPass As String
Const message As String = _
"The password must contain 5 characters."

origPass = origPasswordTextBox.Text.ToUpper

If origPass.Length = 5 Then

origPass = Replace(origPass, "A", "X")
origPass = Replace(origPass, "E", "X")
origPass = Replace(origPass, "I", "X")
origPass = Replace(origPass, "O", "X")
origPass = Replace(origPass, "U", "X")
origPass = Replace(origPass, "0", "Z")
origPass = Replace(origPass, "1", "Z")
origPass = Replace(origPass, "2", "Z")
origPass = Replace(origPass, "3", "Z")
origPass = Replace(origPass, "4", "Z")
origPass = Replace(origPass, "5", "Z")
origPass = Replace(origPass, "6", "Z")
origPass = Replace(origPass, "7", "Z")
origPass = Replace(origPass, "8", "Z")
origPass = Replace(origPass, "9", "Z")
Else
MessageBox.Show(message, "password", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

origPass = StrReverse(origPass)

newPasswordLabel.Text = origPass

End Sub

(Not pertaining to the code)
Ps. I noticed a little mad icon on the subject line. I didn’t mean to add that there with my last post, I must have checked the wrong icon (first time using these…oops)

- Kathy