Converting Date:Time text to Date:Time value

Hello, I'm trying to write a VBA code for converting the date/time as text to a date/time value.

The scenario is, I have three different types of text :
ddmmmyy
HH:MM
ddmmmyy:HHMM

I could have the code working fine with the first two types, but not the last one, please help me with this.

Here is my code

Private Sub StringToDateTime_Btn_Click()
Dim c As Range
Dim timeStr, timeStr2, timeStr3 As String

    For Each c In Selection
    On Error Resume Next
    Select Case True

    Case c.Text Like "##???##"
        timeStr = Format(c.Value, "ddmmmyy")
        c.NumberFormat = "[$-1010409]ddmmmyy;@"
        c.Value = timeStr
        
    Case c.Text Like "##:##"
        timeStr = TimeValue(c.Value)
        c.NumberFormat = "[$-1000000]hh:mm"
        c.Value = timeStr
   
    Case c.Text Like "##???##:####"
        
        'timeStr = Format(Mid(c.Value, 1, 7), "ddmmmyy")
        'timeStr2 = Mid(c.Value, 9, 2) & ":" & Mid(c.Value, 11, 2)
        'timeStr2 = Format(TimeValue(Format(timeStr2, "HH:MM")), "HHMM")
        'timeStr = TimeValue(timeStr & ":" & timeStr2)
        
        
        
       ' timeStr = Format(c.Value, "ddmmmmyy")
        'MsgBox Format(c.Value, "ddmmmmyy")
       ' c.NumberFormat = "[$-1010409]ddmmmyy:HHMM;@"
        'c.Value = timeStr
    
    End Select
    

        

    Next c
End Sub

To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.

If needed supply a before and after sheet in the workbook so the person helping you can see what you are trying to achieve.

ie post a file which shows the values in place so we can better understand, test and validate both requirements and solution.

What is your Select case checking?

Attach some example data