Public Sub RandByte(ByVal amount As Integer)
Dim randLet As New Random
Dim i As Integer = 0
Dim rndLet As String = ""
Dim strRand As String
Do Until i =...