求高手解答。如何用VB求50-60以内的非素数之和？

Option Explicit

Private Sub Form_Click()
Dim i, j As Integer
Dim intSum As Integer
Dim isSu As Boolean
intSum = 0
For i = 50 To 60
isSu = True
For j = 2 To Int(i ^ 0.5)
If i Mod j = 0 Then isSu = False
Next j
If isSu = False Then
intSum = intSum + i
Print i
End If
Next i
Print "和=" + Trim(intSum)
End Sub

'先写一个判断是否素数的函数，这样可以通用。
Private Function isSu(ByVal shu As Integer)
isSu = True
For i = 2 To Sqr(shu)
If shu Mod i = 0 Then isSu = False
Next
End Function

Private Sub Command1_Click()
Sum = 0
For i = 50 To 60
If Not isSu(i) Then
Sum = Sum + i
End If
Next
Print Sum
End Sub

dim i as integer,S as integer
for i=50 to 60
if i<>53 and i<>59 then s=s+i