vb二进制存储问题

我在程序中设置了一个Long整型变量a,一个String 变量b
Private Sub Command1_Click()
    Dim a As Long
    a = 5
    Dim b As String
    b = "bbb"
    fHndl = FreeFile(0)
    Open "c:\a.a" For Binary As fHndl
    Put #fHndl, , a
    Put #fHndl, , b
    Close #fHndl
End Sub

但读出来的时候，只见a,的值，B为空，请教大家怎么读不出来
Private Sub Command2_Click()
    Dim a As Long
    Dim b As String
    fHndl = FreeFile(0)
    Open "c:\a.a" For Binary As fHndl
    Get #fHndl, , a
    Get #fHndl, , b
    Close #fHndl
End Sub

---

[code=VB]
Private   Sub   Command1_Click()
        Dim   a   As   Long
        a   =   5
        Dim   b   As   String
        b   =   "bbb "
        fHndl   =   FreeFile(0)
        Open   "c:\a.a "   For   Binary   As   fHndl
        Put   #fHndl,   ,   a