Probleem met lezen binary file

[buick]

Ik wil een heel simpel programma maken wat uit een bepaald bestand, wat bytes leest en deze voor mij omzet.

Ik krijg echter met geen mogelijkheid de GET instructie meer werkend (iets wat mij bij andere programma's altijd lukte)

Ik heb een testprogramma geschreven wat alleen het volgende doet :

Private Sub Command1_Click()

Dim A as string

Open "c:\testfile.rmm" for Binary as #1

A = Space(10) 'lees eerste 10 bytes

Get #1 , , A

debug.print len(a)

Close #1

End Sub

De file bestaat en is normaal leesbaar (heb trouwens verschillende andere bestanden geprobeert met zelfde resultaat.

Als ik deze code uitvoer krijg ik :

Runtime error 458
Variable uses an automation type not supported in Visual Basic

Vreemd genoeg heb ik dergelijke kleine progjes al vaker gemaakt zonder een probleem. Ook de boeken van VB geven aan dat de code correct is.

Als ik een van de andere programma's inlees die nagenoeg dezelfde code bevatten (alleen dan niet met a,b,c etc maar met temp1 en temp2) , dan werken deze normaal.

Heeft iemand een idee wat hier mis mee kan zijn , of is er misschien iets in de VB instellingen gewijzigd ?

 

[buick]

Hmm. Ik ben er al achter

Ik had deze code gebruikt :

dim a,b as string

om zowel a als b als string te declareren.
In het geval van VB gaat dit echter niet op. Bovenstaande code decraleert a als variant en b als string.