Sub MakeTime()
    Dim r As Range, v As String
    For Each r In Range("A1:A10")
        v = r.Text
        If Len(v) = 5 Then v = "00:" & v
        r.Value = TimeValue(v)
    Next r
End Sub