Imports System.Text.RegularExpressions
Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text = "Hallo, guten Tag zusammen, " & _
            "bin ich hier richtig bei den Tipps " & _
            "zu Visual Basic .NET von vb-fun?"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Label1.Text = "Anzahl Wörter: " & _
            CountWords(TextBox1.Text).ToString
  End Sub

  Function CountWords(ByVal s As String) As Integer
    Dim myRegex As Regex = New Regex("[\w]+")
    Return myRegex.Matches(s).Count
  End Function

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class