把一个大于2的偶数分解为两个素数，怎么填代码？

现有的程序中没有判断最小素数，所以在每次取得新组合后  
      Label3.Caption = b
      Label1.Caption = i  '⑤这个赋值函数都有重新赋值

Private Sub Command1_Click()
Dim a&, f1 As Boolean, f2 As Boolean
Dim temp1 As Long
Dim temp2 As Long
a = Val(Text1.Text) '①
temp1 = a
temp2 = a

For i = 2 To a - 2

    f1 = True
   For j = 2 To i - 1
     If i Mod j = 0 Then f1 = False
   Next j
   
   If f1 Then
     b = a - i '②
     
     f2 = True
     For j = 2 To b - 1
       If b Mod j = 0 Then f2 = False '③
     Next j
     
     If f2 Then
     If (Val(i) < Val(temp1) And Val(i) < Val(temp2)) Or (Val(b) < Val(temp1) And Val(b) < Val(temp2))  Then
     '④
        temp1 = i
        temp2 = b
      Label2.Caption = temp1
      Label1.Caption = temp2  '⑤
    End If
     End If
   End If '⑥
Next i
End Sub
欧拉  妥妥滴
知识有限，仅供参考，希望对你有帮助

[此贴子已经被作者于2018-10-22 12:47编辑过]

谢谢，已经想到答案了，
If f2 Then
     Label1.Caption = i   '④
      Label3.Caption = b
       exit for   '⑤
     End If
   End If  '⑥