over flow error 6

[sal21]

I'M testing a Route, code...

Private Function GetFirstNamedNode(myNode As String, myNodes As IXMLDOMSelection) As IXMLDOMElement

Dim seeknode As IXMLDOMElement

For Each seeknode In myNodes
If seeknode.nodeName = myNode Then
Set GetFirstNamedNode = seeknode
Exit For
End If
Next

End Function

node:
'<TravelDuration>48812</TravelDuration>

...
Me.LORA.Caption = TimeSerial(0, 0, GetFirstNamedNode("TravelDuration", nodes).Text) & " (HH:MM:SS)"
....

Have overflow, error 6

is possible, because the number in node is very big?

[HansV]

Try

Dim t As Long
t = GetFirstNameNode(...).Text
Me.LORA.Caption = Format(t / 86400, "hh:mm:ss") & " (HH:MM:SS)"

[sal21]

Try

Dim t As Long
t = GetFirstNameNode(...).Text
Me.LORA.Caption = Format(t / 86400, "hh:mm:ss") & " (HH:MM:SS)"

tks! WORK NOW.