ありがとうございます!

①はおかげさまでできました。②は難しそうなのでまた今度…

もうひとつリストボックスについてなんですが

Dim character(10) As String

character(1) = a

character(2) = b

character(3) = c

character(4) = d

ListBox2.Items.AddRange(character)

とすると「値を Null にすることはできません。」
というエラーが出てしまいますどうしたらよいでしょうか