Originariamente inviato da maleresidente
codice:
Private Sub Command1_Click()
  sss Text1()
End Sub
stesso errore su sss text1()
Non mi pare ... hai visto il bene il codice suggerito? Specialmente la riga

Private Function sss(d As Variant)