CAn you please have a look on my code and tell me what is missing?
Private Sub cmdProcess_Click()
Dim z As Long
Dim UserName As Variant
Dim NameLookup As Variant
Dim strPName As String
Dim sFindIt As String
Dim iFoundPass As Integer
sFindIt = PayoutFrm.txtSerial.Value
If...