<System.Runtime.CompilerServices.Extension()> _
   Public Function ContainsUpperChars(ByVal source As String) As Boolean
      Dim s = From e In source.ToCharArray Where Char.IsUpper(e) Select e
      Return (s.Count > 0)
   End Function

   Dim s As String = "Haus am See"
   If s.ContainsUpperChars Then
      MsgBox("String beinhaltet UpperChars")
   End If

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control