I think you need to let the VBA put in the actual date value, that way it would show up in the immediate window.
String should be something like:
lsSQL = lsSQL & " VALUES ( " & ICompanyRef & ", '" & lsForenames & "', '" & lsSurname & "', '" & SUser & "', " & Date() & ", " & False & ")"