All pastes #25310 Raw Edit

Miscellany

public text v1 · immutable
#25310 ·published 2005-10-12 12:21 UTC
rendered paste body
Sub genascii()
x = Int((122 * Rnd) + 1) Mod 57 + 65
If 96 < x Or x < 91 Then
    Text1 = x & Chr(x)
Else
  Call genascii
End If
End Sub