VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

度々申し訳ありません。
ランダムアクセスファイルで 氏名 As String*20 と宣言し、
それより短い文字を入れた場合はスペース（文字コード32）で埋まると思い、
以前お教え頂きましたTrim関数を用いてスペースを消去し、
別の配列の中に入れようと以下のようにしました。
しかし、Namedata()の中に入った文字を見るとスペースは消えてません。
何故なのでしょうか？何とぞお教え下さい。

Dim MaxNo As Long
Dim DataNo As Long
Dim Namedata() As String
Dim RecNo As Integer

FileNo = FreeFile
        If Right$(App.Path, 1) = "\" Then
            FileName = App.Path & "pData"
        Else
            FileName = App.Path & "\pData"
        End If
        
            Open FileName For Random As FileNo Len = Len(Myrecord)
            MaxNo = LOF(FileNo) / Len(Myrecord)
            
                ReDim Namedata(MaxNo)
                                
                    For RecNo = 1 To MaxNo
                        Get FileNo, RecNo, Myrecord
                            Namedata(RecNo) = Trim(Myrecord.氏名)        
                    Next RecNo