codice:
function campi(VLang,name) 
Select Case name 
  Case "Nome e Cognome" 
     if VLang="IT" then 
        campi="Nome e Cognome" 
     else 
        campi="Name and surname" 
     end if 
  Case "Telefono" 
     if VLang="IT" then 
        campi="Telefono" 
     else 
        campi="Phone" 
     end if 
  Case "Fax" 
     campi="Fax" 
  Case else 
     campi="" 
End Select 
end function
Così!!!