[Resolvido]Formatar 0800

Olá, estavava tentando formatar campo de telefone, em parte deu certo, entretanto quando é 0800 não formata. Tentei dessas formas, mas não deu, segue:


Select Case True
Case Len(txtNroTelefone) = 10
txtNroTelefone = Format(txtNroTelefone, "(##) ####-####") ' aqui tá ok
Case Len(txtNroTelefone) = 11
txtNroTelefone = Format(txtNroTelefone, "(##) #####-####") ' aqui também ok
'Case Left$(txtNroTelefone, 4) = "0800"
'txtNroTelefone = Format(txtNroTelefone, "(####) ###-####") ' já aqui não
Case Len(txtNroTelefone) = 13
txtNroTelefone = Format(txtNroTelefone, "(####) ###-####")
End Select


Alguma idéia ???

ALAN

Código:

if Left$(txtNroTelefone, 4) = "0800" then
  txtNroTelefone = Format(txtNroTelefone, "(####) ###-####") ' já aqui não
else

  Select Case Len(txtNroTelefone)
      Case 10
        txtNroTelefone = Format(txtNroTelefone, "(##) ####-####") ' aqui tá ok
      Case 11
        txtNroTelefone = Format(txtNroTelefone, "(##) #####-####") ' aqui também ok
      Case Len(txtNroTelefone) = 13
        txtNroTelefone = Format(txtNroTelefone, "(####) ###-####")
  End Select

end if

Olá Mestre Damasceno, por aqui fechou todas, exatamente como precisava. Encerramos por aqui!!

ALAN

O fórum agradece o retorno. Sucesso.