Написать функцию которая сравнивает 2 длинных числа, выдаёт 1 если первое больше второго, -1 если второе

Function Sravnenie(Первое_число, Второе_число) As Integer
If Первое_число = Второе_число Then
Sravnenie = 0
Else
   If Первое_число > Второе_число Then
   Sravnenie = 1
   Else
   Sravnenie = -1
   End If
End If
End Function

Function Sravnenie(Первое_число, Второе_число) As Integer
Sravnenie = Sgn(Первое_число-Второе_число)
End Function

Sub SuperMacros()
    Dim s$
    s = InputBox( _
    "Введите 2 символа, и компьютер их сравнит...")
    If Len(s) < 2 Then Exit Sub
    MsgBox "результат: " & StrComp(Mid$(s, 1, 1), Mid(s, 2, 1), vbBinaryCompare)
End Sub

Function NumLongCompare(NLStr1 As String, NLStr2 As String) As Long
    Dim MaxLen As Long, len1 As Long, len2 As Long
    If NLStr1 = NLStr2 Then
        NumLongCompare = 0
    Else
        len1 = Len(NLStr1)
        len2 = Len(NLStr2)
        MaxLen = IIf(len1 > len2, len1, len2)
        NumLongCompare = IIf(String$(MaxLen - len1, "0") & NLStr1 > String$(MaxLen - len2, "0") & NLStr2, 1, -1)
    End If
End Function
 
Sub test()
    Debug.Print NumLongCompare("123456789", "123456789")
    Debug.Print NumLongCompare("123456789", "987654321")
    Debug.Print NumLongCompare("1234567890", "987654321")
End Sub