Не работет уже готовый простой код - VB

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

Sub ggg()
 
Dim X As String, Y As String
Dim check As Boolean
 Dim st As String
check = True
Public Function MM(X, Y)
       If (X < 0) Then
       X = -X
       check = False
    ElseIf (Y < 0) Then
       Y = -Y
       check = False
       End If
      
 If (check = False) Then
 ' Кароче решил схитрить, если x или y меньше нуля я просто дописываю минус)
st = "-" + CSng(MM = (Atn(X / Y)))
 Else: MM = (Atn(X / Y))
End If
End Function
'Что-то не работет выводит "знач"

null

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

textual
                            Листинг программы 
                        

                            Sub ggg()
' Г€Г±ГЇГ°Г*ГўГЁГ« , Г*Г® ГўГ±Вё Г°Г*ГўГ*Г® Г*ГҐ ГЇГ*ГёГҐГІ
Dim check As Boolean
 Dim st As Double
Public Function MM(X, Y)
check = True
       If X < 0 Then
       X = X * (-1)
       check = False
       End If
    If Y < 0 Then
     Y = Y * (-1)
       check = False
       End If
  
 If (check = False) Then
  'ГЉГ*Г°Г®Г·ГҐ Г°ГҐГёГЁГ« Г±ГµГЁГІГ°ГЁГІГј, ГҐГ±Г«ГЁ x ГЁГ«ГЁ y Г¬ГҐГ*ГјГёГҐ Г*ГіГ«Гї Гї ГЇГ°Г®Г±ГІГ® Г¤Г®ГЇГЁГ±Г»ГўГ*Гѕ Г¬ГЁГ*ГіГ±)check = True
st = MM = (Atn(X / Y)) * (-1)
 End If
 If (check = True) Then
 MM = Atn(X / Y)
End If
End Function
'Г—ГІГ®-ГІГ® Г*ГҐ Г°Г*ГЎГ®ГІГҐГІ ГўГ»ГўГ®Г¤ГЁГІ "Г§Г*Г*Г·"
                        