Дано четырехзначное число. Переставьте местами цифры так, чтобы сначала оказались цифры, меньшие пяти - Visual Basic .NET

Формулировка задачи:

Сделала, чтоб формировалось рандомом четырехзначное число, а как сделать условие ?

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = CInt(Int((9999 * Rnd()) + 1000))

    End Sub
End Class

Решение задачи: «Дано четырехзначное число. Переставьте местами цифры так, чтобы сначала оказались цифры, меньшие пяти»

textual
                            Листинг программы 
                        

                            Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Rand As New Random()
        Dim RandNumber As Integer = Rand.Next(1000, 10000)
        TextBox1.Text = CStr(RandNumber)
End Sub
                        