Function HA(t As String) As Variant
Dim p As Integer, x As String
HA = ""
t = Application.Trim(LCase(Replace(t, ":", ""))) 'SUPPRESPACE
p = InStr(t, "ha")
If p = 0 Then Exit Function
For p = p + 2 To Len(t)
x = Mid(t, p, 1)
If Not IsNumeric(x) And x <> "h" And x <> " " Then Exit Function
HA = HA & Trim(x)
Next
End Function