Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел?

Private Sub Command1_Click()
m = Val(Text1.Text)
For i = 2 To (m - 2) Step 1
If (Sqr(m - i) Mod 2 = 0) And (Sqr(i) Mod 2 = 0) Then
a = 1
End If
Next
If a = 1 Then
Picture1.Print Format("Да")
Else
Picture1.Print Format("Нет")
End If
End Sub

Private Sub Command1_Click()
Dim i, m
m = Val(Text1.Text)
For i = 1 To Sqr(m)
  If Sqr(m - i * i) = Int(Sqr(m - i * i)) Then
    MsgBox "Yes"
    Exit Sub
  End If
Next i
MsgBox "No"
End Sub

Function is_sum_q(m as integer) As boolean
      k%=sqr(m)
      for i%=1 to k% 
           p%= m-i%*i%
           q%=sqr(p%)
           if q%*q%=p% then
              is_sum_q=True
              Exit Function
           End if       
      Next i%
End function
 
Sub Test()
 
 p% = Val(InputBox("Введите число"))
 
 If is_sum_q(p%) Then
    MsgBox "Число " + CStr(p%) + " МОЖНО представить в виде суммы двух квадратов"
 Else
    MsgBox "Число " + CStr(p%) + " НЕЛЬЗЯ представить в виде суммы двух квадратов"
 End If
 
End Sub