Excelでランチャーソフトを作ってみよう

Option Explicit

'コマンドボタン クリックイベント
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)     '右クリックの場合
    If Button = 2 Then
        ButtonNo = 1
        ButtonCaption = CommandButton1.Caption
        'ファイル指定フォームを開く
        UserForm1.Show
    End If
End Sub

ユーザーフォームイベント

下記のVBAコードを追加してください。
'参照ボタン
Private Sub CommandButton1_Click()
    Dim sfina As String
    
    'ファイル選択ダイアログ
    sfina = SelectFile_single
    If sfina <> "" Then
        TextBox2 = sfina
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1 = ButtonCaption
End Sub

Option Explicit

Public ButtonNo As Integer
Public ButtonCaption As String

'ファイル選択ダイアログ
Public Function SelectFile_single()
    Dim sfile As String
    Dim i As Integer
    Dim s As String

    sfile = Application.GetOpenFilename("ファイルを選択してください (*.*), *.*")
    If sfile = "False" Then
        SelectFile_single = ""
    Else
        SelectFile_single = sfile
    End If
End Function