Private Sub Form_Load()

ii = FreeFile
Open "D:\contoh.txt" For Output As #ii

Dim i, j, f1, f2, p, p1, p10 As Integer
For i = 5 To 8
For j = 5 To 8
If i <> j Then
        f1 = i
        f2 = j
        p = f1 * f2
    If p < 100 Then
        p1 = p Mod 10
        p10 = (p - p1) / 10
        If p1 > 4 And p10 > 4 And p1 < 9 And p10 < 9 And p1 <> i And p1 <> j And p1 <> p10 And p10 <> i And p10 <> j Then
            ' MsgBox (f1)
           ' MsgBox (f2)
           ' MsgBox (p)
            Print #ii, f1, "x", f2, "=", p
        End If
    End If
End If
Next j
Next i

Close #ii

End Sub