Option Explicit

Private Sub Command1_Click()

  'Ketika Command1 diklik, maka kumpulan abjad di Text1

  'akan diurutkan dari terkecil hingga abjad yang terbesar

  'dan hasilnya ditampilkan di Text2 menjadi:

  'ABCDEFGHIJKLMNOPQRSTUVWXYZ

  Dim sAbjad() As String, ar As Integer, br As Integer, _

    sAbjadTemp As String

  Text2.Text = ""

  ReDim sAbjad(Len(Text1.Text) - 1)

  For ar = 1 To Len(Text1.Text)

    sAbjad(ar - 1) = Mid(Text1.Text, ar, 1)

  Next ar

  For ar = LBound(sAbjad) To UBound(sAbjad)

    For br = LBound(sAbjad) To UBound(sAbjad) - 1

      If sAbjad(br) > sAbjad(br + 1) Then

        sAbjadTemp = sAbjad(br + 1)

        sAbjad(br + 1) = sAbjad(br)

        sAbjad(br) = sAbjadTemp

      End If

    Next br

  Next ar

  For ar = LBound(sAbjad) To UBound(sAbjad)

    Text2.Text = Text2.Text & sAbjad(ar)

  Next ar

End Sub

Private Sub Form_Load()

  'Mula-mula, kumpulan abjad di Text1 belum urut...

  Text1.Text = "QWERTYUIOPASDFGHJKLZXCVBNM"

  Text2.Text = ""

End Sub