加点什么程序进去可以让结果显示为以下的形式?

2  3  5  7  11     13  17  19   23   27
29  31  37 --       -------------------
-------------       --------------------    

有很多人给过我答案,如:
Private Sub Form_click() 
Dim s As String 
s = vbNullString 
For x = 2 To 100 
If f(x) = 1 Then 
s = s & CStr(x) & " " 
End If 
Next x 
Print s 
End Sub 


Function f(n) 
m = Sqr(n) 
For i = 2 To m 
If n Mod i = 0 Then Exit For 
Next i 
If i > m Then 
f = 1 
Else 
f = 0 
End If 
End Function 

可是,当我把100改成300,还是有一部分显示不出来.

有什么最好的统一的办法吗?