VB转换GrADS绘图所需的二进制文件

用VB编写的程序如下
Private Sub Command1_Click()
Dim a1 As Double
Dim aa() As Double
Dim bb As Double
Dim i, j As Integer
Open "E:/cc.dat" For Input As #1
Open "E:/dd.dat" For Binary As #2
i = 0
j = 0
Do While Not EOF(1)
Input #1, a1
i = i + 1
Loop
Print i

ReDim aa(i)
Seek #1, 1
For j = 1 To i
Input #1, aa(j)
Put #2, , aa(j)
Next

Close
End Sub
能够转换成二进制的数据，但是用GrADS调此数据画图时出错，不知道什么地方除了问题。

VB绘图问题 用VB编一个简易的绘图程序 VB 文本间的转换 VB的赋值转换问题！ delphi 与 VB 的转换 vb 中在PICTUERBOX中绘图后如何缩放绘图????? 哪位大侠可以提供vb用的破解的或者免费的矢量绘图控件？ VB数值和字符转换的问题 vb的问题：转换字符为数字 VB 强制类型转换的格式是什么