把一个大于2的偶数分解为两个素数，text1中写入这个偶数，label1和label3中填入两个素数，要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合)。程序中有6个填空，第四个填空填不出来，请指教！
Private Sub Command1_Click()
Dim a&, f1 As Boolean, f2 As Boolean
a = Val(Text1.Text) '①
For i = 2 To a

    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
     '④
      Label3.Caption = b
      Label1.Caption = i  '⑤
     End If
   End If '⑥
Next i
End Sub

上面的程序自己不能添加代码的，就填空

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