Private Sub CommandButton1_Click()
    
    Dim ciccio As String
    Dim num As Long
    Dim nome As String
    Dim i As Long
    Dim fine As Long
    Dim tot As Long
    
    num = 15
    ciccio = "martino"
    nome = txtNome.Text
    fine = CLng(nome)
            
    tot = 0
    
    For i = 1 To fine
        tot = tot + i
    Next
    
    Call MsgBox(tot)
    
    If ciccio = nome And num = 15 Then
        Call MsgBox("Benvenuto, sei stato riconosciuto")
    Else
        Call MsgBox("Il tuo nome non è presente nel nostro database")
    End If
    
End Sub