Sub Button1_Click
Dim id As InputDialog
id.Show("Inserirt name","Test","Ok","Cancel","",Null)
If id.Response=DialogResponse.CANCEL Then
Return
End If
Dim a As String=id.Input
Log("text lenght=" & a.Length)
If a.Length<5 Or a.Length>40 Then Button1_Click
Log("completed")
End Sub