Pegar numero com exceção dos numeros 0

Bom dia caros colegas.
Gostaria de saber se existe uma forma de pegar todos os numeros de uma textbox com exceção dos numeros 0 porque quero fazer um código para que seja aberto um diretório no servidor porém possuimos registros de 1000 até 80000 em numero de pastas portanto tentei usar o Left(Objeto, 2) + 000 porém não funcionaria devido a diferença entre o 1000 e 10000 em diante. Atualmente meu código está assim. No servidor os diretórios estão separados por milhar por exemplo 1000+, 2000+, 3000+ e assim por diante.


Private Sub cmdabrirdigitalizados_Click()
Dim strPasta As String
Dim strFaixaPasta As String
Dim objPasta As String
Dim Diretorio As String

objPasta = Me!Pasta
strPasta = Forms!FormProcessos!Pasta
strFaixaPasta = Left(objPasta, 2) + "000+\"

Diretorio = "\\00administrador\Arquivos Digitalizados\Pastas\" & strFaixaPasta & strPasta
Application.FollowHyperlink Diretorio
End Sub

Então para resolver isso pensei em fazer um código que pegue somente os numeros que são diferentes de 0 para eu poder jogar no strFaixaPasta e sair o valor certinho da faixa de pasta em que a determinada pasta se encontra. Existe alguma forma de fazer isso ou terei que pensar em armazenar as pastas de outra maneira?

Agradeço a atenção de vocês mestres. (Mãozinhas juntas agradecendo)

Boa tarde, use estrutura condicional:

Código:

Iif(objPasta > 1000, Left(objPasta, 2) + "0000+\",Left(objPasta, 2) + "000+\")