I've made a simple program and it works. I made 3 forms and it works perfectly. Problem is that i just want to replace every character with "asterisk" (*) but reads the same.
Private Sub Command1_Click() If Text1 = "leads" Then Form2.Show 1, Me Exit Sub End If If Text1 = "farmerman" Then Form3.Show 1, Me Exit Sub End If If Text1 <> "leads" Then MsgBox "Enter valid User type!", vbInformation, "User Info" Text1.SetFocus Exit Sub End If End Sub