runtime error 6..

[paran]

hi, while entering the code i get error "runtime error 6.., pls help as I'm new to vba

Private Sub Label8_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyPass As Long
MyPass = InputBox("Enter Developer Password", "Developer Setting")
If MyPass = "" Then GoTo WrongDPass
If MyPass = CStr(Sheets("in moves").Range("B101")) Then
Application.Visible = True
Unload Me
Else
MsgBox ("Incorrect Password")
End If
WrongDPass:
End Sub

 

[RoryA]

Are you entering a very long number as the password?

 

[maabadi]

I think you should change Declare type for MyPass.
Try to change it to Double, String or Variant and then test your code.
Or Add Type:= at the end of Inputbox options.
1 for Number, 2 for string, 64 for variant. for example

InputBox("Enter Developer Password", "Developer Setting", Type:=1)

 

[paran]

I think you should change Declare type for MyPass.
Try to change it to Double, String or Variant and then test your code.
Or Add Type:= at the end of Inputbox options.
1 for Number, 2 for string, 64 for variant. for example

InputBox("Enter Developer Password", "Developer Setting", Type:=1)

thx for ur reply,adding type comming error of name argument
but worked with declaring variable as double ,fails when password is ety its returning error

 

[RoryA]

Declare it as String since passwords are always text.

 

[paran]

Declare it as String since passwords are always text.

ok dear will ck and revert

 

[paran]

Declare it as String since passwords are always text.

wow great now done bro

ok dear will ck and revert

done ,great bro
one more same error " password incorrect"
Private Sub Image5_Click()
Dim p As String
p = Sheets("in moves").Range("B100")
UserID = StrConv(Me.TextBox1, vbProperCase)
If Sheets("in moves").Range("A100") = UserID And CStr(Sheets("in moves").Range("B100")) = Me.TextBox2 Then
Unload Me
MvmtForm.Show
Else
MsgBox ("Please enter your Correct User Id and Password")
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox1.SetFocus
End If
End Sub

 

[RoryA]

That's not a code error, it just means that either your password or userid doesn't match. Both tests are case sensitive.

 

[paran]

That's not a code error, it just means that either your password or userid doesn't match. Both tests are case sensitive.

Its user id in a100 n password in b100. Pls say how to make it right code pls

 

[RoryA]

As I said the code is fine. If you’re seeing that message, then the user ID and/or password you entered do not match.