Creo que tu error esta aquí :
Código vb:
Ver originalIf strPrinter <> (TextIMPGes.Text) Then
defaultPrinter = TextIMPGes.Text
Exit For
End If
Debería ser igual :
Código vb:
Ver originalIf strPrinter.Equals(TextIMPGes.Text) Then
defaultPrinter = TextIMPGes.Text
Exit For
End If
Saludos!

.