Time Duration formatting

[Mark Gambo]

How about this:

Option Explicit
 
Private Function GetTime(strline As String) As String
Dim dtEventDateTime As Date
Dim dtClearDateTime As Date
 
    dtEventDateTime = CDate(Mid(strline, InStr(strline, "Event Time: ") + 12, 19))
    dtClearDateTime = CDate(Mid(strline, InStr(strline, "Clear Time: ") + 12, 19))
    
    GetTime = DateDiff("n", dtEventDateTime, dtClearDateTime) & _
                         " minutes Difference Between Event Time and Clear Time"
End Function
 
Private Sub Command1_Click()
Dim strline As String
 
    Debug.Print GetTime(strline)
 
End Sub