Целочисленная арифметика...пифагоровы тройки. (Незнающая VB девушка...)

Private Sub Command_1 Click()
Dim n As Single 'или всё же Integer???
c=Text1
a<n
b<n
c<n
If a*a+b*b=c*c Then 'ну или a^2 + b^2 = c^2...равносильно ж
MsgBox a & “,“ & b “,” & c
End If
End Sub

For a To n
For b=1 To n
For c=1 To n
If a*a+b*b=c*c Then 
If a<b & b<c & c<n Then
MsgBox a & "," & b "," & c
End If
End If
Next a
Next b
Next c

Sub Числа_Армстронга()
   Dim i As Integer
   Dim s As String
   Dim n As Byte, j As Byte, k As Byte
   Dim Summ As Long
   
   For i = 10 To 9999
      s = Str(i) ' 10 --> " 10" остается место для знака
      s = Right(s, Len(s) - 1) ' " 10" --> "10"
      n = Len(s)
      
      For j = 1 To n
         Summ = Summ + Val(Mid(s, j, 1)) ^ n
      Next j
      
      If i = Summ Then
         k = k + 1
         Cells(k, 1) = i
      End If
      
      Summ = 0
   Next i
   
End Sub

Private Sub CommandButton1_Click()
   Dim i As Integer
   Dim s As String
   Dim n As Byte, j As Byte, k As Byte
   Dim Summ As Long
   
   For i = 10 To 9999
      s = Str(i) ' 10 --> " 10" остается место для знака
      s = Right(s, Len(s) - 1) ' " 10" --> "10"
      n = Len(s)
      
      For j = 1 To n
         Summ = Summ + Val(Mid(s, j, 1)) ^ n
      Next j
      
      If i = Summ Then
         k = k + 1
         Print i   'вот здесь меняем
      End If
      
      Summ = 0
   Next i
   
End Sub