Function NameFix (who)
whotemp$ = who For findchar = 1 To Len(whotemp$) thechar$ = Mid(whotemp$, findchar, 1) If thechar$ = " " Then thechar$ = "" End If thechars$ = thechars$ & thechar$ Next findchar who = thechars$ NameFix = LCase(who) End Function Esempio: MsgBox NameFix("Questa e' una stringa testo") Restituisce Questaeunastringatesto |