convert c# code into VBA

[mfaizan24]

Hello, I been trying to convert my c# code into VBA but couldn't find any solution, I appreciate if anyone can help me in this regard. Here is my code:

using System.Drawing;
using System.Globalization;

public enum Direction
{
North = 0,
South = 4,
East = 6,
West = 2,
Northeast = 7,
Northwest = 1,
Southeast = 5,
Southwest = 3,
Undefined = -1
}

public class DirectionFinder
{
public static Direction GetDirection(string baseLat, string baseLng, string customerLat, string customerLng)
{
try
{
float baseLatp = float.Parse(baseLat.ToString(), CultureInfo.InvariantCulture.NumberFormat);
float baseLngp = float.Parse(baseLng.ToString(), CultureInfo.InvariantCulture.NumberFormat);

float custLatp = float.Parse(customerLat.ToString(), CultureInfo.InvariantCulture.NumberFormat);
float custLngp = float.Parse(customerLng.ToString(), CultureInfo.InvariantCulture.NumberFormat);

var baseP = new PointF(baseLatp, baseLngp);
var custP = new PointF(custLatp, custLngp);
return GetDirection(baseP, custP);
}
catch
{
throw;
}
}

private static Direction GetDirection(PointF p1, PointF p2)
{
double angle = Math.Atan2(p2.Y - p1.Y, p2.X - p1.X);
angle += Math.PI;
angle /= Math.PI / 4;
int halfQuarter = Convert.ToInt32(angle);
halfQuarter %= 8;
return (Direction)halfQuarter;
}
}

[mfaizan24]

this is the VB.NET version, I convert it using --carlosag.net/tools/codetranslator

Public Enum Direction

North = 0

South = 4

East = 6

West = 2

Northeast = 7

Northwest = 1

Southeast = 5

Southwest = 3

Undefined = -1
End Enum
Public Class DirectionFinder

Public Overloads Shared Function GetDirection(ByVal baseLat As String, ByVal baseLng As String, ByVal customerLat As String, ByVal customerLng As String) As Direction
Try
Dim baseLatp As Single = Single.Parse(baseLat.ToString, CultureInfo.InvariantCulture.NumberFormat)
Dim baseLngp As Single = Single.Parse(baseLng.ToString, CultureInfo.InvariantCulture.NumberFormat)
Dim custLatp As Single = Single.Parse(customerLat.ToString, CultureInfo.InvariantCulture.NumberFormat)
Dim custLngp As Single = Single.Parse(customerLng.ToString, CultureInfo.InvariantCulture.NumberFormat)
Dim baseP = New PointF(baseLatp, baseLngp)
Dim custP = New PointF(custLatp, custLngp)
Return DirectionFinder.GetDirection(baseP, custP)
Catch As System.Exception
Throw
End Try

End Function

Private Overloads Shared Function GetDirection(ByVal p1 As PointF, ByVal p2 As PointF) As Direction
Dim angle As Double = Math.Atan2((p2.Y - p1.Y), (p2.X - p1.X))
angle = (angle + Math.PI)
(Math.PI / 4)
Dim halfQuarter As Integer = Convert.ToInt32(angle)
8
Return CType(halfQuarter,Direction)
End Function
End Class