Hi,
I have a form, from where I want to insert the values to a particular sheet. Can somebody please help me to help me out.
The value from these textboxs needs to be inserted to sheet7 which I named as "Log"
tbdate
cbfilelist
tbtoday
tbtime

On sheet7 I have inserted the headers as :
Date
File Name
Today
Time

What I am doing is that, when I am pressing a button, it is asking me for a password.if the password matches then
the values in the fields I mentioned is copied to the log sheet.
I am using this code to do it but I am doing error. Please guide me.

Private Sub cmdOverride_Click()

Dim Pword As String
Dim lrow As Long
Pword = InputBox("Please input the password. ", "Change Date")

If Pword = "" Then
       Exit Sub
ElseIf Pword <> "z" Then
     MsgBox "Your password is wrong!", , "Sorry"
  
    Exit Sub
Else
    
    lrow = Sheets("Sheet7").Range("A65536").End(xlUp).Row + 1
    With UserForm1
        .tbTime.Value = Format$(Now(), "hh:mm:ss AM/PM")
        .tbDate.Value = Format(Calendar1.Value)
        Range("A" & lrow).Value = .tbTime.Text
        Range("B" & lrow).Value = .tbDate.Text
    End With
 
End If

End Sub