Private Sub Command2_Click()
  Dim sText     As String
  Dim lLength   As Long
  Dim lPos      As Long
  Dim lPos1     As Long
  Dim lWords    As Long
 
  sText = Me.txtText.Text
 
  lPos = InStr(1, sText, " ", vbTextCompare)
  Do Until lPos = 0
    lWords = lWords + 1
 
    lPos1 = InStr(lPos + 1, sText, vbCrLf, vbTextCompare)
    lPos = InStr(lPos + 1, sText, " ", vbTextCompare)
    If lPos = 0 Or lPos1 < lPos Then
      lPos = lPos1
    End If
  Loop
  sText = Replace(sText, Chr(10), "", , , vbTextCompare)
  sText = Replace(sText, Chr(13), "", , , vbTextCompare)
  lLength = Len(sText)
  lPos = InStr(1, sText, " ", vbTextCompare)
 
  MsgBox "Zeichen: " & lLength & vbCrLf & _
         "Wörter:  " & lWords
 
End Sub