Class FormBase
   ...
   Private Sub tb_Validated (ByVal sender As Object, ByVal e As System.EventArgs) Handles tb.Validated
      If tb.text="Prova" Then
         Dim fm As New FormDialog
         fm.ShowDialog
      End If
   End Sub
   ...
End Class