Dim percorso as string
Dim Id As InputDialog
Id.Show ( "", "input", "OK", "Annulla", "", Null )
If Id.Response = -3 Then
Msgbox("Ho premuto annulla", "")
Return
Else
If Id.Input = "" Then
Msgbox("vuoto", "")
Return
End If
percorso = id.input
Msgbox(percorso, "valore inserito")
End If