Try this code -----
Code:
Dim Username,Password
UserName = inputbox("enter the username")
Password = inputbox("please enter the password")
msgbox Username
msgbox Password
