C# と VB.NET の質問掲示板

お世話になります。

VB6について、お知恵を拝借させてください。

◆やりたいこと
　４つのテキストボックスを配置し、その中で一番最小の値を取得したいのです。

例：
　項目１＝"3"
　項目２＝"1"
　項目３＝"A"
　項目４＝"D"

上記が格納されている場合、項目２のデータを取得したい。

例２：
　項目１＝""
　項目２＝"Z"
　項目３＝"A"
　項目４＝"D"

上記のデータが格納されている場合、項目３のデータを取得したい。


この場合に、関数を作成してデータを取得したいのですが、関数作成のイメージが沸きません。

よろしければ教示いただけないでしょうか。

自己解決しました。

以下のロジックです。

読んでいただいた方、ありがとうございました。

'***************************************************************************************************
'------------------------
'ＳＵＢ情報
'------------------------
'ＳＵＢ名　　：Command1_Click
'処理概要    ：-
'引数1 　　　：なし
'***************************************************************************************************
Private Sub Command1_Click()

    Dim Nations(3) As String
    
    Nations(0) = Me.Text1.Text
    Nations(1) = Me.Text2.Text
    Nations(2) = Me.Text3.Text
    Nations(3) = Me.Text4.Text
    
    Call mSubBubbleSortStr(Nations(), 4)
    
    Me.Label1.Caption = Nations(0)
    
End Sub


'***************************************************************************************************
'------------------------
'ＳＵＢ情報
'------------------------
'ＳＵＢ名　　：mSubBubbleSortStr
'処理概要    ：指定された文字列型配列をソートする
'引数1 　　　：data()   IN  ソート対象
'引数2 　　　：Count    配列内個数
'***************************************************************************************************
Private Sub mSubBubbleSortStr(data() As String, Count As Integer)
    Dim i As Integer
    Dim j As Integer
    Dim temp As String

    j = 0
    '要素0から順に直接的にソートする
    Do While j < Count - 1
        i = j + 1
        Do While i < Count
            If StrComp(data(j), data(i), 1) = 1 Then
                temp = data(j)
                data(j) = data(i)
                data(i) = temp
            End If
            i = i + 1
        Loop
        j = j + 1
    Loop
End Sub