Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim strText As String = "aadfadf adfasdfasd asdfafda 14:00 adlkfk" & _
        "asldfkjölkj asdfkjökl"
 
        If GetTime(strText) <> "" Then
            MessageBox.Show(GetTime(strText), "Zeit gefunden:")
        Else
            MessageBox.Show("Keine Zeitangabe im Text gefunden!", "Pech" & _
              "gehabt:")
        End If
 
    End Sub
 
    Private Function GetTime(ByVal Prueftext As String) As String
 
        Dim arr() As String = Prueftext.Split(" ")
 
        Dim i As Integer = 0
 
        For i = 0 To UBound(arr) - 1
 
            If IsTime(arr(i)) Then
                Return arr(i)
                Exit For
            End If
 
        Next
 
    End Function
 
    Private Function IsTime(ByVal Prueftext As String) As Boolean
 
        Dim d As DateTime
 
        If Regex.IsMatch(Prueftext, "^[0-9][0-9]:[0-9][0-9]") Then
            If Date.TryParse(Prueftext, d) Then
                Return True
            End If
        Else
            Return False
        End If
 
    End Function
 
End Class

EALA FREYA FRESENA