VBA UserFormがテキストボックスからn番目の値を見つける

Question

私はuserformと6つのテキストボックスとボタンを作成しました。私は第一、第二、第三の最大の価値を見つける必要があります。

userform name: uform1 
testboxes name: t1, t2, t3, t4, t5, t6 

Iのようなメッセージreciveする「T4は15である第一の最大値を含むが、t2は12である第二の最大値を含む、T5は10 tirth最大値を含む」

私がチェックしていますいくつかのコードが、私はテキストボックス値の解決策を見つけることができませんでした。私は以下のコードを試してみましたが、使用しません。

Private Sub CommandButton1_Click() 
    Dim Hrdlr As Integer 
    Hrdlr = Array(.t1, .t2, .t3, .t4, .t5, .t6) 

    Scnd = WorksheetFunction.Large(Hrdlr, 2) 
End Sub 

ありがとうございます。

Answer 1

私はうまく動作します。

Dim Hrdlr 
    Hrdlr = Array(Val(t1.Value), Val(t2.Value), Val(t3.Value), Val(t4.Value)) 

    Label1.Caption = WorksheetFunction.Large(Hrdlr, 2) & " in t" & Application.Match(WorksheetFunction.Large(Hrdlr, 2), Hrdlr, False)