Set Default Printer Using VB Script

File Save as .vbs
double Click the File

Use below code to your VB application

--------------------------------------------------------
Dim devlist
Dim dev
Set devlist = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("Select * from Win32_Printer")
For Each dev In devlist
'MsgBox "Monitor: " & dev.ShareName
MsgBox "Monitor: " & dev.Name &" "& dev.portname
if instr(dev.Name ,"EPSON") then dev.SetDefaultPrinter()
Next

------------------------------------------------------