求贴，用vb设计验证200以内的哥德巴赫猜想

Private Sub Form_Click()
For i = 4 To 200 Step 2
For j = 2 To i
If Not prime(j) And Not prime(i - j) Then
Print i; "="; j; "+"; i - j
Exit For
End If
Next j
Next i
End Sub
Private Function prime(ByVal x%) As Boolean
For i = 2 To Sqr(x)
If x Mod i = 0 Then
prime = True
Exit For
End If
Next
End Function

类似于这样，但是要换行

我看下

603997262，，，这个我已经做过了
——来自 爱贴吧 Windows Phone 客户端

同求怎么换行，