Private Sub Command1_Click()
Dim Text As String
Dim Leer As Boolean
Dim N As Long
 
Text = "           "
 
Leer = True
 
For N = 1 To Len(Text)
 If Not Mid(Text, N, 1) = " " Then
   Leer = False
   Exit For
 End If
Next
 
If Leer Then
 MsgBox "Der String enthält nur Leerzeichen"
Else
 MsgBox "Es sind noch andere Zeichen enthalten"
End If
 
End Sub