Alterar propriedades "Formato" de vários campos em uma tabela via código VBA

Bom dia pessoal!

Gostaria de adaptar este condigo a seguinte situação, com ele consigo altera a formatação somente de um campo
teria como que este mesmo código formata-se vários campos?

Código:

Function AltCampo_Quantidade()

  Dim db As DAO.Database
  Dim tdef As DAO.TableDef
  Dim fdef As DAO.Field
  Dim pdef As DAO.Property
  Set db = CurrentDb()
  Set tdef = db.TableDefs("tbl_Salario")
  Set fdef = tdef.Fields("Salarios")
      DoCmd.RunSQL "ALTER TABLE tbl_Salario ALTER COLUMN Salarios DOUBLE"
  Set pdef = fdef.CreateProperty("Format", dbText, "Standard")
      fdef.Properties.Append pdef
  Set db = Nothing

End Functio


Tópico retirado da sala de "Consultas" por não ser uma dúvida relacionada a este tipo de objeto.