Phrase To Passphrase (Password) Generator?

I wanted to make a simple program for people to create passwords out of phrases. A phrase can be a quote, or something that is easy for you to remember. An example would be: "I visit the MSDN often". The passphrase from that would be: "IvtMo".Notice the case is retained. The phrase is just the first character of every word. The button click function is to convert the phrase into passphrase.The capital() function is change random characters in the passphrase to uppercase. This works by using the Dim x As

String = Int(TextBox2.Text.Length * Rnd())

which allows "x" to be equal to the length of the passphrase text times a random.

Controls: Button named Button1 CheckBox named CheckBox1 TextBox named TextBox1 TextBox named TextBox2
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> String.Empty Then[code].....