Public Function GenerateString(ByVal minLength As Integer, ByVal maxLength As Integer) As String
  Dim charset As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  Dim r As New Random()
  Dim lenPass As Integer = r.Next(minLength, maxLength)

  Dim str As String = String.Empty

  For i As Integer = 0 To lenPass - 1
    str += charset(r.Next(0, charset.Length))
  Next

  Return str
End Function