Das ist immer eine Zahl, du kannst aber (z.B) das dann auf druckbare Zeichen umlegen:
Dim I As Integer
Dim Z As byte
Do
I = Rnd(96) 'eine gestreute Zahlenfolge vom 0-95
Z = I + 32
Print chr(Z)
Waitms 100
Loop
End