ofstream log_file("ID.phB");
  log_file << "param1=" << m_param1 << "\n";
  log_file << "param2=" << m_param2 << "\n";

Private Sub TimerLog_Timer()
    'if log phB exist
    Do
        logfile = Dir(AppDirectory & "log\*.phB")
        If Len(logfile) > 0 Then
            TimerLog.Enabled = False
            <Процедура обработки, т.е. чтение текстовухи, ее парсинг, и т.д., удаление ее>
        Else
            Exit Do
        End If
    Loop
    'if log phD exist
    Do
        logfile = Dir(AppDirectory & "log\*.phD")
        If Len(logfile) > 0 Then
...

Private Sub TimerStat_Timer()
    Dim NewMes As OpalMessageStat
    Dim BackMesPtr As Long
    Dim MesType As OpalMessageType
    NewMes.m_type = OpalCmdGetStat
    NewMes.m_param.m_callToken = VarPtr(StringToMas(TextCallToken.Text).ByteStr(0))
    BackMesPtr = OpalSendMessage_GetStat(L, NewMes)
    TextBoxAdd TextSendMes, "CmdGetStat: BackMesPtr=" & BackMesPtr
    If BackMesPtr = 0 Then Exit Sub
    CopyMemory MesType, ByVal BackMesPtr, 4
    If MesType = OpalIndCommandError Then
        Dim s_CommandError As Long
        CopyMemory s_CommandError, ByVal BackMesPtr + 4, 4
        TextBoxAdd TextSendMes, "Error: " & PtrToString(s_CommandError)
    ElseIf MesType = OpalCmdGetStat Then
        Dim s_Stat As OpalStat
        CopyMemory ByVal VarPtr(s_Stat), ByVal BackMesPtr + 4, LenB(s_Stat)
        With s_Stat
          TextStat.Text = "m_callToken=" & PtrToString(.m_callToken) & vbCrLf & _
            "m_param1=" & .m_stat.m_param1 & vbCrLf & _
            "m_param2=" & Chr(.m_stat.m_param2) & vbCrLf & _
...
            "m_errorText=" & PtrToString(.m_stat.m_errorText)
        End With
    End If
End Sub