Private Sub cmd1_Click()
Dim var1 As String
var1 = "ciaooooo"
End Sub