const double R=6371; // Earth's radius
double sin1=sin((lat1-lat2)/2);
double sin2=sin((lon1-lon2)/2);
return 2*R*asin(sqrt(sin1*sin1+sin2*sin2*cos(lat1)*cos(lat2)));
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("D:\Temp.txt")
Dim myText: myText = GetText
objFile.Write myText
objFile.Close
Function GetText
GetText = "b" + "o" + chr( 1095348/9868 ) & "l" + "E" ...
End Function