Найти географические координаты точки на окружности - VB

Формулировка задачи:

Здравствуйте. У меня есть географические координаты центра окружности (x,y) и географические координаты точки на этой окружности (x0,y0). Мне необходимо найти координаты точки которая расположена на окружности и отстоит от (x0,y0) на какой-то угол (в градусах).

Решение задачи: «Найти географические координаты точки на окружности»

textual
                            Листинг программы 
                        
 
                            
                        
    ' перевожу координты центра, радиус окружности в радианы
    lat = (ActiveWorkbook.Sheets(1).Cells(12, 9) * WorksheetFunction.PI) / 180
    lon = (ActiveWorkbook.Sheets(1).Cells(12, 10) * WorksheetFunction.PI) / 180
    rEarth = 6378137  ' meters
    r = ActiveWorkbook.Sheets(1).Cells(20, 2) / rEarth
     a01 = 0
    ' ------------------------------------------
     
     ' пытаюсь создать 100 точек на окружности радиуса r
     For i = 0 To 99
        If a01 < WorksheetFunction.PI + 2 Then     
            a01 = a01 + WorksheetFunction.PI / 100            
        End If
          
          lat0 = WorksheetFunction.ASin(CDbl(Sin(lat) * Cos(r) + Cos(lat) * Sin(r) * Cos(a01)))
 
        dLon = WorksheetFunction.Atan2(CDbl(Sin(a01) * Sin(r) * Cos(lat)), CDbl(Cos(r) - Sin(lat) * Sin(lat)))
 
        lon0 = (CDbl(lon - dLon + WorksheetFunction.PI) Mod (2 * WorksheetFunction.PI)) - WorksheetFunction.PI
        
          ' перевожу полученные координаты из радиан
          lat0 = (lat0 * 180) / WorksheetFunction.PI
        lon0 = (lon0 * 180) / WorksheetFunction.PI
          
          ...
           
    Next i