vb.net - 鍵生成乱数の問題

Question

次の形式の乱数ジェネレーターが必要です: 65X XXX XXXX ; 1 と 4 を除く。これは、最初の VB.net プロジェクトを完成させる前の最後のステップです。お力になれることがあればご回答ください。

以下は、数字を除外しないこと以外はうまく機能する私のカラントコードです。私のコードを編集するのを手伝っていただければ、私はとても感謝しています..ありがとう!

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim rnd As New Random
Dim str1, str2, str3 As String
str1 = "65" & rnd.Next(0, 9)
str2 = rnd.Next(100, 999)
str3 = rnd.Next(1000, 9999)
ListBox1.Items.Add(str1 & " " & str2 & " " & str3)
End Sub