if *some condition* And Cell isEmpty problem

[mysticmario]

Hi,
I am here sittign for 3 hours trying to figure out a way to code simple empty check for cell on top of password check and I cannot make it happen, Can you please help me with this code? I am still learning VBA and sometimes computer logic doesnt add up with my lgoic and stuff dont work :D

Private Sub IMusinIN_Click()
  ivanpin = InputBox("Enter PIN:", Verification)
  If ivanpin = 1234 Then
  Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Currently logged in")

    sh.Range("C9").Value = Now
    
loginvar = MsgBox("Logged in", vbOKOnly, "Login")
Unload Me
Else
MsgBox "Wrong PIN!", vbOKOnly + vbExclamation, "Error"
End If
        
End Sub

I wanted to add: And isEmpty(ThisWorkbook.Sheets("Currently logged in").Range("C9").Value = True
to IF statement
and ElseIf isEmpty(ThisWorkbook.Sheets("Currently logged in").Range("C9").Value = False Then msgbox popup
But it doesn't work. I tried multiple different options and code combinations nothing seems to work It's late and I'm exhausted, maybe someone can help me out?
Thank You in advance good people

 

[GWteB]

Not sure about this, but try ...

Private Sub IMusinIN_Click()
    Dim ivanpin As Variant
    
    Dim Rng As Range
    Set Rng = ThisWorkbook.Sheets("Currently logged in").Range("C9")
    
    If IsEmpty(Rng.Value) Then
        ivanpin = InputBox("Enter PIN:", "Verification")
        If ivanpin = 1234 Then
            Rng.Value = Now
            MsgBox "Logged in", vbOKOnly, "Login"
            Unload Me
        Else
            MsgBox "Wrong PIN!", vbOKOnly + vbExclamation, "Error"
        End If
    End If
End Sub

 

[mysticmario]

It somewhat works, not entirely what I needed but it blocks the possibility to reEnter which was my main goal.
Thanks

 

[GWteB]

You are welcome and thanks for the follow-up

 

[mysticmario]

I have so many more questions, VBA is not that easy after and I am trying to create entire managing system for my office :D

 

[GWteB]

Feel free to start a new thread with one of your many more questions, after all that's what this forum is for.