厨房な質問でｽﾏｿ

ボタンでファイルリストから選んだファイルをテクストボックスに入れた名前にリネームしたいのでふが
やりかたがまったくわかりませんｳﾜｧｧ｡'(ﾟ´□｀)ﾟ'｡ｧﾝ

Private Sub Command1_Click()
fname = File1.FileName
Name "fname" As "text1"
End Sub

こんなので出来ないのでしょうか…
誰か教えてください_|￣|○lll