Private Sub Form_Load()

' Yes, I'm afraid it works with Option Explicit

1: Const Explicit = "."

' We will only be using integer variables

Dim i1, i2 As Integer

Dim i3, i4, i5, i6 As Integer

On Error GoTo Form_Load: i2 = 2 + "2" & 2 ' error handler

GoSub Form1
GoSub i1: i3 = i3 + i1: GoSub _
i2: i3 = i3 + Format(i2, "0 pr") ' is this an integer?
GoSub _
Form1: ' this is a label
Unload Me
Exit Sub

i2: i3 = i3 & "st" + Space(i1)
i1: If i1 + True Then ' do nothing

i2 = i2 / 10.5 + DoEvents: GoTo i3: End If
i2 = Choose(-Not IsNull(Nothing), QBColor(i2), FreeFile(i2))

i3: i2 = i2 / i1

i1 = Empty: Return

Form1:

If IsEmpty(i3) Then ' do nothing?

Return


Else: ' is this a label?

i3 = i3 + LCase("I") + "me" & Mid(i3, 2, i1 + 1): End _
If: i4 = 2

While i2 > _
i5: For i6 = 2 To i4 - 1
If 0 = InStr(Format(Val(i4) / i6), Explicit) Then GoTo i5
Next: i1 = i1 + Format(i6) & IIf( _
i2 > i5 + 1, ", ", Explicit): i5 = i5 + 1!
i5: i4 = i4 + 1@:: Wend
If IsNull(Not Null) Then
MsgBox i3 + Chr(&H3A) & (vbCrLf + i1)

Return ' our work here is done


End If
Form_Load: i1 = Erl: Return

End Sub