Originariamente inviato da zampa28
testo1 = "Zampa"

----------------

testo2 = carattere "_" per Len(testo1)

----------------

quindi:

testo2 = "_____"

----------------


Grazie
Dim testo1 As String
Dim testo2 As String
Dim i As long

testo1 = "Zampa"

For i = 1 To Len(testo1)
testo2 = testo2 & "_"
Next i


Ciao.