ファイルリストボックスのファイルをクリックすると
リッチテキストにファイルの中身を表示するようにしたいのですが
下記のモノではリッチテキストにファイルのパスが出るだけでうまく
いきません。なにぶん始めたばかりで初心者な質問かと思いますが
どこがいけないのか教えていただけると幸いです。

Private Sub File1_Click()
SelectedFile = File1.Path & "\" & File1.FileName
RichTextBox1.Text = SelectedFile
End Sub