This code will calculate the ETA based on distance and speed.

Friend Function TimeETA(ByVal Miles AsInteger, ByVal Speed AsInteger) AsString
   '1 knott = 1.150779 NM
   Dim RetVal AsDouble = (60 * Miles) / Speed
 
   If CDbl(RetVal) > 60 Then
       Dim h AsDouble = RetVal / 60
       Dim HM() AsString = CStr(Math.Round(h, 2)).Split(".")
       Dim Hours AsString = HM(0)
       Dim Minutes AsString = HM(1) * 0.6
 
       If Minutes < 10 Then
           Return Hours & ":" & "0" & Minutes.Substring(0, Minutes.LastIndexOf("."))
       Else
           Return Hours & ":" & Minutes.Substring(0, Minutes.LastIndexOf("."))
       EndIf
   EndIf
 
   If Math.Round(RetVal, MidpointRounding.ToEven) < 10 Then
       Return"0:" & "0" & Math.Round(RetVal, MidpointRounding.ToEven)
   Else
       Return"0:" & Math.Round(RetVal, MidpointRounding.ToEven)
   EndIf
End Function