Esempio di funzione per convertire in maiuscolo la lettera iniziale di ogni parola
Function ProperCase(str)
  Dim p, i, sOut
  p = 1
  sOut = ""
  Do While InStr(p, str, " ", 1) <> 0
    i = InStr(p, str, " ", 1)
    sOut = sOut & UCase(Mid(str, p, 1)) & _
        LCase(Mid(str, p + 1, i - p))
    p = i + 1
  Loop
  ProperCase = sOut & UCase(Mid(str, p, 1)) & _
        LCase(Mid(str, p + 1))
End Function