I have this code and I want to be able to add the password in the text box.
Private Sub Command1_Click()
If(Text1.Text <> "") Then
Shell "NET USER " & Text1.Text & " A123@45b /domain"
Basically I want to be able to type in any generic password.