used location class, and worked like a charm
Dim LocationFrom As Location
Dim LocationTo as Location
LocationTo.Initialize2(routeto.Latitude,routeto.Longitude)
LocationFrom.Initialize2(routebegin.Latitude,routebegin.Longitude)
rotateangle =LocationFrom.BearingTo(LocationTo)