VBAでテキストボックスに入力された値のデータを参照したいです。

Question

前提・実現したいこと

図のようなもの作成しています。

従業員IDのところに参照したい従業員のIDを入力します。
参照ボタンを押すと、名前や交通手段などのデータが参照されます。

発生している問題・エラーメッセージ

データの参照をするための文がわからず困っています。
また、ラジオボタンに参照させる方法も教えていただきたいです。

該当のソースコード

 '参照ボタンを押した時の処理'
Private Sub ReferenceBtn_Click()

    'もし参照する値が入力されていなかったら'
    If Me.IDTextBox = "" Then
        MsgBox "参照する番号を入力してください。"
        Exit Sub
    End If
    
    i=
    
    '姓を出力'
    .Cells(i, 2) = Me.TextBox2
    
    '名を出力'
    .Cells(i, 3) = Me.TextBox3
    
    'セイを出力'
    .Cells(i, 4) = Me.TextBox4
    
    'メイを出力'
    .Cells(i, 5) = Me.TextBox5
    
    '性別を出力'
    .Cells(i, 6) =
    
    '交通手段を出力'
    .Cells(i, 7) = Me.ComboBox1
    
    '最寄り駅を出力'
    .Cells(i, 8) = Me.TextBox6
    
    '交通費を出力'
    .Cells(i, 9) = Me.TextBox7
    
    '時給を出力'
    .Cells(i, 10) = Me.TextBox8
    

Answer 1

Dim rng As Range
    Dim r As Variant
    Dim i As Integer
    With Worksheets("?????o?[")
    
    Set rng = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    r = Application.Match(Val(IDTextBox.Text), rng, 0)
    
    For i = 2 To 5
        Controls("TextBox" & i).Text = .Cells(r + 1, i)
    Next i
    If .Cells(r + 1, 6) = "?j" Then
        Man.Value = True
    Else
        Woman.Value = True
    End If
    
    ComboBox1.Text = .Cells(r + 1, 7)
    For i = 6 To 8
    Controls("TextBox" & i).Text = .Cells(r + 1, i + 2)
    Next i
    End With

Answer 2

これでセルの検索ができると思います。
※例でA列から"2"を完全一致で検索

    Dim rng As Object
    Set rng = Range("A:A").Find("2", lookat:=xlWhole)
    i = rng.Row

また、ラジオボタンはコントロール名.Valueがチェック状態になります。
true(on)/false(off)です。