投稿者 魔界の仮面弁士  (社会人) 投稿日時 2008/12/11 18:17:52
一ヶ所修正。

 Dim A1 As String    ' 0~ 4 の5バイト:12345  

' (中略) 

'A1 = enc.GetString(bytes, 0, 4)   'これだと"1234"しか取れない。 
 A1 = enc.GetString(bytes, 0, 5)   'これなら"12345"が得られる。