Recalculate mshflexgrid based on cell contents vb6

I need to update a mshflexgrid based on cell contents
cellcontents will either be a am/pm time or a date format
date calls
Function GetDaysDue(myDate As String) As String
time calls:
Function DetermineNextTaskTime(ByVal dteTaskTime As Date) As String

Update either time value or date value
.textmatrix (Row, 3) determines either AMpm/time Or date

so far i have this
Private Sub cmdUpDateGrid_Click()
      Dim i As Integer
        Dim CellContents As String

        For i = 1 To gridMaster.Rows - 1
        With Me.gridMaster
        .cellcotents = TextMatrix(i, 3)
         Select Case CellContents
        'if date
         'Function GetDaysDue(myDate As String) As String
       if AM/PM Time
Function DetermineNextTaskTime(ByVal dteTaskTime As Date) As String      
       
       
        Next
End Sub
I am thinking maybe using the Instr function as the times will always have either a AM or PM
How to write this ?