Entweder selber nen kleinen Parser schreiben, oder man verwendet Reguläre Ausdrücke.

https://www.vba-tutorial.de/applikation/regexp.htm

 ungetestet 

Dim expr As String
Dim dtm As DateTime

expr = "Heute ging es 07:56 los auf Arbeit. Schon 08:11 gab es Kaffee. Aber erst 10:03 kam der Chef. "

With CreateObject("VBScript.RegExp")
    
    .Pattern = "(\d\d):(\d\d)"
'    .IgnoreCase = False
    .MultiLine = False
    .Global = False
    
    With .Execute(expr)
        If .Count > 0 Then
                dtm = TimeSerial( _
                        Hour : = .Item(0).SubMatches(0), _
                        Minute := .Item(0).SubMatches(1), _
                        Second : = 0)
        End If
    End With
    
End With

Grüße