CommonDialog - VB

Private Sub Form_Initialize()
   Dim Z As String
   FileName = CurDir + "\BaseTest\MashT.txt"
   Z = LoadCode(FileName)
   FileName = "C:\Windows\Temp\test.txt"
   Open FileName For Binary As #1
   Put #1, , Z
   Close #1
   I = 1
   
   Open FileName For Input As #1
   Call resetForm
   Call info           ' вывод информации о тесте
   Call getLevel       ' чтение информации об оценках
 
   Form1.ScaleMode = vbPixels
   Command1.Tag = 0
   
   Label1.WordWrap = True
   Label1.AutoSize = True
    
   End Sub