VB编的程序读取随机文件数据不正确

我用VB编写了一段随机文件的储存和读取代码，可是却出现了意想不到的问题

看上边代码别扭就看下边

Private Sub Command1_Click()
Open "C:\data" For Random As #1 Len = 4  '4已经足够了
Put #1, 1, "00"
Close #1
End Sub
Private Sub Command2_Click()
Open "C:\data" For Random As #1 Len = 4
Get #1, 1, kk
Close #1
Text1.Text = kk
End Sub

感觉代码没什么问题，但是当我储存并读取后，返回的数据却与储存的数据不一样，代码里存入的是00，而返回的值却是12336

我想知道是我的代码有什么问题，望大师讲解

你要加个标准模块

再按钮的代码是

你看看是不是你要的，我试过成功了。我只把你的c盘改了d盘，你再改回吧