Craig,

I would be inclined to use the Like operator or InStr.
However, I don't know how or where your data is set up.
The following may answer your question...
'-------------------------
Sub PrinterNumberTest()
Dim x As Long
Dim y As String
For x = 1 To 100
y = Format$(x, "00")
Next
End Sub
'----------------------

Jim Cone
San Francisco, USA


"Craig" wrote in message
news:uIV1f.107709$oW2.91671@pd7tw1no
Hello, I'm trying to get and set the printer that is currently connected to
my laptop. I travel around and hook up to over 100 printers which are all
the same USB printer. Each time I encounter a new printer I install the
drivers for it. I then get a new printer icon, which it access's another
USB port. I then rename the printer and record the port it uses. I know how
to check if a printer exist and I know how to change the active printer
within my code. My problem is each time I add a printer the ports change
(Ne00: Ne01: Ne02 etc... This is fine. I can get from my records in my
code to get the printer based on the name given and port used. What I have
noticed is that after I connect to a printer that has been previously
installed for some reason the original port assigned has changed. So what I
would like to do is use a For/Next loop to check until the printer and port
exist or tell me that a printer hasn't been installed yet.
I think I can create this code myself except I'm not sure how to get the
for/next loop to check
Ne00: Ne01: Ne02: Ne03: Ne04: Ne05: Ne06: Ne07: Ne08: Ne09: Ne10:
Ne11: Ne12: .......
I can make it do x = 0 to 100 but I need a zero infront of the first 10
numbers.
Thanks in Advance once Again!
Craig