VB Snippet - Get last API error description

[MerrionComputin]

When an API call is executed in VB and it has an error it usually sets the Err.LastDllError property to a number. You can decode this number to a meaningful description of the error as follows:

'\ API Error decoding
Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long
 
Public Function LastSystemError() As String
 
Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Dim sError As String * 500 '\\ Preinitilise a string buffer to put any error message into
Dim lErrNum As Long
Dim lErrMsg As Long
 
lErrNum = Err.LastDllError
 
lErrMsg = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, lErrNum, 0, sError, Len(sError), 0)
 
LastSystemError = Trim(sError)
 
End Function

[srinika]

thanx for the code!!!
It says that, The printer name is invalid

But when I used Windows 2000 Control Panel to add the printer manually, I select the name "EP" as the printer on the network.
The name "EP" is the name of the printer I gave when installing and sharing.

Here I'm putting for shareName and printerName, the same "EP"
What can be the cause to get the above error?
Am I to put "\EP" or "\\P2\EP" or any such?
[Actually I checked with "\EP" and "\\P2\EP" but unsuccessful.

Please help me!!
I'm in the edge of the answer, but couldn't find.
Regards
Srinika