Option Explicit Private Sub Form_Load() MsgBox jokuluku End Sub Public Function jokuluku(Optional SeLuku As Long) As Long If IsMissing(SeLuku) = True Then jokuluku = 1337 Else jokuluku = SeLuku End If End Function
Mulla toi palauttaa luvun 0. Pitäiskö sen?
Long-muuttuja ei voi olla "Missing", sillä sen puuttuva arvo on aina nolla (0). Ainoastaan Variant voi olla "Missing", koska sen arvo voi olla Nothing. Eli koodisi toimii tuossa suhteessa oikein.
Aihe on jo aika vanha, joten et voi enää vastata siihen.