; vbCrLf &amp; m_iPalette
   For i = 1 To m_iPalette
      sJasc = sJasc &amp; vbCrLf &amp; m_tPal(i).rgbRed &amp; " " &amp; m_tPal(i).rgbGreen &amp; "
       " &amp; m_tPal(i).rgbBlue
   Next i
   
   On Error GoTo ErrorHandler
   iFile = FreeFile
   Open sFileName For Binary Access Write As #iFile
   Put #iFile, , sJasc
   Close #iFile
   iFile = 0
   Exit Function
   
ErrorHandler:
   Err.Raise Err.Number, App.EXEName &amp; ".cPalette", Err.Description
   If (iFile &lt;&gt; 0) Then
      Close #iFile
   