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